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Quandary 


Eccovi un gioco di strategia che ha delle regole 
molto semplici ma che può diventare molto 
complesso nella scelta delle mosse migliori. Il 
gioco sfrutta la grafica del vostro Apple e vi pre¬ 
senta un campo da gioco multicolore delle di¬ 
mensioni di 12x12 nel quale dovrete cimentarvi 
contro il computer. 

Queste le regole del gioco: 

All'inizio il computer dispone i pezzi (4 per il 
giocatore e 4 per il Computer) sulla prima e 
sull'ultima fila della scacchiera. I pezzi del gio¬ 
catore sono disposti nella parte bassa dello 
schermo mentre i pezzi manovrati dal compu¬ 


ter sono disposti nella parte alta dello scher¬ 
mo. Il movimento dei pezzi può avvenire solo 
in avanti, di fronte o nelle due caselle a destra 
o a sinistra in diagonale. La mossa può avere 
luogo solo se la casella di arrivo è di colore di¬ 
verso da uno dei colori che sono di fronte alle 
pedine dell'avversario. Se la mossa è possibile 
si ha l'obbligo di effettuarla mentre se non esi¬ 
stono caselle valide si deve passare il turno. Vin¬ 
ce chi per primo riesce a porre una delle pro¬ 
prie pedine sulla linea di partenza 
dell'avversario. 

E vinca il migliore! 


210 GOSUB 7500 

220 1F R* = "S" THEN 200 

230 REM SCELTA DELLE POSIZIONI 


10 TEXT : HOME 
15 GOSUB 8000 

20 DIM P( 12) ,C0< 12,12) 

21 DIM TI<12> ,TV<6) ,X1<4>,Y1 < 4>, 

X2<4>,Y2(4>,C9<15),P1(12>,P2 
<I2>,P3C12>,P4<12>,C8<15> 

22 DIM TO ( 3,3) 

30 FOR 1 = I TO 12sP<I> » I * 3: 
NEXT 

35 S* = -S" 

40 FOR I = 1 TO 12 

50 FOR J = 1 TO 12 

60 READ C0(I,J>: NEXT : NEXT 

70 DATA 3,13,7,6,12,5,13,3,7,6, 

8.5 

80 DATA 5,8,3,13,4,6,8,12,13,4, 

7,3 

90 DATA 7,12,4,5,7,13,5,4,3,8,1 

2.6 


100 

DATA 

,4,13 

4,6,13,12,8,3,7,6,12,5 

110 

DATA 

,6,5 

13,5,8,3,6,4,13,5,7,13 

1 20 

DATA 

.12.3 

6,7,12,5,7,8,6,12,4,8 

130 

DATA 

7,4 

6,4,6,6,3,12,4,7,3,5, 

I 40 

DATA 

,13,8 

12,3,7,4,5,13,3,8,6,12 

150 

DATA 

,6.12 

4,6,13,12,8,7,6,5,13,3 

160 

DATA 

5,13 

7,5,4,6,3,12,4,7,12,8, 

1 70 

DATA 

4,3 

3,12,8,7,13,5,8,3,6,7, 

180 

DATA 

,8,7 

8,13,5,3,6,4,12,13,4,5 

182 

GOSUB 

3100: REM TA8ELLA 

190 

GOSUB 

8500 

200 

GOSUB 

5000 


240 FOR I = 1 TO 8:TV< I > - 0: NEXT 
I 

250 FOR 1 = 1 TO 12:TI(I> « 0: NEXT 
I 

260 I = 0 

270 T = INT < RND <l) « 12> ♦ 1 
280 IF TI<T> = 0 THEN TI CT> - li 
1 = 1* 1:TVU> = T 
290 IF 1 < >8 THEN 270 

300 FOR I = 1 TO 4 
310 X!<I> = TV< I > iYl < I > =* 12 
320 Al = 15 :A2 = XI ( I>iA3 = Y1<I » 

: GOSUB 9060 

330 X2< 1 ) = 13 - TV< I + 4) :Y2( I > ■= 

1 

340 Al = 0:A2 » X2<1):A3 - Y2<I>i 
GOSUB 9070 
350 NEXT I 
352 MN = 0 

354 REM 

355 GOSUB 3000 

360 GOSUB 90501 INPUT 'VUOI INIZ 
I ARE’ *iR* 

370 IF R* = "N“ GOTO 1000 
330 IF R* < > "S’ THEN 360 

399 REM 

400 GOSUB 9050: PR1NT -GIOCANO I 

BIANCHI..." 

401 POKE - 16368,0 
405 GOSUB 4000 

410 IF J - 0 THEN GOSUB 9050: PRINT 
■DEVI PASSARE": CHR* <7>:MN - 
1 : FOR I - 1 TO IO: GOSUB 90 
00: NEXT 1: GOTO 1000 
420 GOSUB 9050: VTAB 24: PRINT • 

HAI * ; J ; - POSSI BIUTA' ■ | 
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430 J3 = 0 : IP « I 
440 J5 = J5 ♦ IP 
450 IF J5 = 0 THEN J5 = 1 2 
440 IF J5 » 13 THEN J5 - I 
470 IF PICJ5) = 0 FWD P2<J5> = 0 
THEN 440 

460 J4 » INT <J5 / 3 - 0.2» ♦ 1 
490 Al = CO<X 1< J4>, YICJ4)):A2 - X 
1< J4>iA3 - YI<J4>1 GOSUB 904 
0 

500 GOSUB 9000: GOSUB 9000 
510 Al = 15: GOSUB 9040 
520 GOSUB 9000: GOSUB 9000 
530 COLOR- 15: PLOT P(PI(J5»),P< 

P2<J5> > 

540 GOSUB 9000: GOSUB 9000 
350 COLOR- CO< PI< J5>,P2< J3> >: PLOT 
P< PI< J5)>,P(P2< J3>) 

540 GOSUB 9000: GOSUB 9000 
570 C = PEEK < - 14384» 


575 

POKE 

- 14348.0 

580 

IF C 

< 

- 127 THEN 490 

590 

IF C 
440 


134 THEN IP - - 1: GOTO 

400 

IF C 
440 

* 

149 THEN IP - li GOTO 

605 

IF C 

■ 

204 THEN GOSUB 3000 

410 

IF C 

< 

> 141 THEN 490 

420 

Al - I5:A2 = PI<J5>:A3 = P2<J 


3»: GOSUB 9040 

430 Al = C0<X1<J4),Y1(J4>»:A2 - X 
l<J4>:A3 = Y1< J4) : GOSUB 904 
0 

440 FOR I = I TO 50:C = PEEK < - 
14334» « 5: NEXT I 
450 XI<J4> = PICJ5) 

440 Y1<J4» = P2< J5> 

470 IF YI(J4> - | THEN GOSUB 90 
50: PRINT “8RAV0! ! HAI VINTO 
!"i CHR* (7)| CHR* (7»| CHR* 
<7>i CHR* < 7): GOTO 3500 
1000 REM MOSSA AL COMPUTER 
1005 GOSUB 9050: PRINT •HMMM.. . • 

I 

1010 GOSUB 5200 

1020 FOR 1 » 1 TO 4 

1030 IF Y2(I) < >11 THEN 1110 

1040 FOR K - - 1 TO I 

1050 IF C8<C0(X2(1> ♦ K,12>> - 0 
THEN 1100 

1055 FOR IK - 1 TO 4 
1054 IF XI(1K» • X2<I » ♦ K AND Y 
1(IK) - Y2<!> ♦ I THEN 1100 
1058 NEXT IK 

1040 Al - CO<X2<I»,Y2(l>>:A2 - X2 
< D :A3 - Y2<I>: GOSUB 9070 
1070 Al - 0 :A2 - X2< 1 > ♦ K:A3 - Y 
2il) » 1 : GOSUB 9070 
1080 GOSUB 9050: PRINT "HO VINTO 

! ' 1 * 1 CHR* < 7)| CHR* (7»| CHR* 
(?>i CHR* <7)1 GOTO 3500 
1100 NEXT K 
1110 NEXT I 
1112 GOSUB 5100 
1115 FL - 0 :1C - 0 
1120 FOR I - 1 TO 4 
1130 IF Yl<I) < >2 THEN 1190 

1140 FL = 1 


1 ISO 

FOR K - - 1 TO 1 


1 140 

IF C9(C0<X1<I) ♦ K,l»> - 0 
1180 

GOTO 

1170 

IF C9<C0<X1<D ♦ K, 1 ) ) - 1 

THEN 


C9<C0<XI<D ♦ K, D> - 211C ■ 
1C ♦ 1 

a 

11!? 

ats? 


1195 

IF FL - 0 THEN 1530 


1200 

IF IC > 0 THEN 1400 


1205 

GOSUB 5300 


1204 

PL — 0 :FP — 0 


1210 

FOR 1 - 1 TO 12 


1220 

L - INT <1 / 3 - 0.2) ♦ 1 


1230 

IF P3<I> - 0 AND P4<I> » 0 
1360 

THEN 

1240 

XS - X2<L>:YS - Y2<L> 


1230 

X2<L> - P3<|> » 


1 240 

Y2<L> - P4< I ) 


1270 

GOSUB 5100 


1280 

FOR M - 1 TO 4 


1290 

IF YI<M» < >2 GOTO 1330 


I 300 

FOR K - - 1 TO 1 


1 310 

IF C9<C0<XI<M> ♦ K,Y1<M> - 
D» « 1 GOTO 1330 


1320 

NEXT K 


1330 

NEXT M 


1340 

FP = 1: GOTO 1340 


1350 

PL = L:XL » P3<L>:YL - P4<L> 


:P3il> - 0:P4<1» - 0 


1 340 

X2< L> - XS 


1370 

Y2< L) - YS 


1380 

NEXT 1 


1 385 

IF FP = 1 THEN 1550 


1 390 

IF PL < >0 THEN P3< PL) - 

XL:P4< PL > = YL 


1395 

GOTO 1557 


1 400 

IF IC > 1 THEN 1550 


1410 

FOR I = 0 TO 15 


1420 

1F C9<I) < ) 2 THEN 1460 


1425 

IO = 0 


1430 

FOR K = 1 TO 4 


1435 

IF C0<X2<K>|Y2<K> ♦ 1) - I 
IO = IO ♦ 1:PJ - K 

THEN 

1440 

NEXT K 


1440 

NEXT I 


1443 

IF IO > 1 THEN 1550 


1470 

GOSUB 5300 


1480 

FOR 1 - 1 TO 4 


1 485 

IF I - PJ THEN 1520 


1490 

FOR K = 1 TO 3 


1495 

P3«I - 1» • 3 ♦ K) - 0 


1500 

P4< <I - 1) » 3 ♦ K) - 0 


1510 

NEXT K 


1320 

NEXT 1 


1530 

GOTO 1204 


1330 

GOSUB 5300 


1333 

IF NV > 0 THEN 1700 


1357 

C = 0 


1558 

GOSUB 5300 


1540 

FOR 1 - 1 TO 12 


1570 

IF P3<1) - 0 AND P4(D - 0 
1590 

THEN 

1580 

C = C ♦ 1iPJ » I 


1590 

NEXT I 


1400 

IF C —0 THEN GOSUB 9050: 

PRINT 


•DEVO PASSARE 1 "1 CHR» <7>: FOR 
8 = I TO 10: GOSUB 9000: NEXT 
B: GOTO 1470 
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lóto ! F ,C < >1 THEN I 440 

1420 1 = 1NT < 1NT <PJ> / 3 - 0. 

3) + 1 

Ió25 Al = C0<X2<I)|Y2<I> >:A2 = X2 
CIMA3 = Y2< 1 ) ! GOSUB 90 70 

1630 Al = 0:A2 = P3<PJ>:A3 = P4CP 
J): GOSUB 9070 

1631 PRINT CHR* < 7)i 
1432 MN = 0 

1*35 X2<l) = P3CPJ>:Y2CI> = P4<PJ 
)! GOTO 400 

1640 PJ = RND <1> « 12 ♦ 1 
1430 IF P3<PJ) < > 0 AND P4(PJ> 

< > 0 THEN 1620 

1440 GOTO 1440 
1470 IF MN < >1 THEN 400 

1480 GOSUB 9030! PRINT "MATCH NU 

LLOI"j CHR* < 7>; CHR» <7>| CHR* 

< 7>j CHR* <71 ! GOTO 3500 
1700 REM LIVELLO > 0 
1705 MX = - lOOOOiPJ - 0 

1710 FOR I = I TO 12 
1720 IF P3<I) = 0 AND P4<I> = 0 THEN 
I 740 

1730 ON NV GOSUB 2000,2100,2200 
1740 IF EV < = MX THEN 1740 

1750 MX = EV:PJ = 1 
1740 NEXT I 

1745 IF PJ = 0 THEN C « 0: GOTO 
1400 

1770 GOTO 1620 
2000 REM LIVELLO 1 

2010 EV = P4(I) * 10 
2020 RETURN 
2100 REM LIVELLO 2 

2105 II = I 

2110 IF P4(!> < = 4 THEN 12 * 1 

2120 IF P4<!> > = 5 AND P4<I > < 

= 8 THEN 12=2 

2130 IF P4<I> > = 9 THEN 12 = 3 

2135 13 = INT < INT (I) / 3 - 0. 

3) ♦ 1 

2134 XS = X2< 13) i YS = Y2( 13> 

2137 X2<I3> = P3CI)iY2<I3> - P4<l 
) 

2140 GOSUB 4000 

2141 X2< 13) = XS i Y2< I 3) = YS 
2143 I = II 

2150 IF J < =3 THEN J2 = 1 

2160 IF J > =4 AND J < =9 THEN 

J2 = 2 

2170 IF J > =10 THEN J2 = 3 

2180 EV = TOC I2,J2> ♦ P4CI) * 10 - 
J * 10 

2190 IF J • 0 THEN EV = EV ♦ 300 

2195 RETURN 
2200 REM LIVELLO 3 

2210 REM LIVELLO 3 NON DEFINIT 

0 

2220 RETURN 

3000 GOSUB 9050: INPUT "LIVELLO 
DI GIOCO? "jNV 

3010 IF NV < 0 OR NV > 2 THEN 30 
00 

3020 RETURN 


3099 REM 'TABELLA DI VALUTA2I0 
NE DEL LIVELLO 2 

3100 FOR I = 1 TO 3 

3110 FOR J = I TO 3 
3120 READ TOC I , J> 

3130 NÓ<T J 

3140 NEXT 1 

3150 DATA 250,0,-1000,500,250,0, 

1000,500,250 
3160 RETURN 

3500 FOR 1 = 1 TO 2000: NEXT I 
3505 HOME : INPUT "GIOCHI ANCORA 
?" | 0 » 

3510 IF LEFT* <0*,1) = "N* THEN 

TEXT : HOME : HTAB 17: VTAB 
10: INVERSE : PRINT "CIAO!": 
NDRMAL : END 

3520 IF LEFT* <Q*,1) < > "S" GOTO 

3500 

3530 GOTO 200 

4000 REM MOSSE POSSIBILI AL 6 

10CAT0RE BIANCO 

4010 FOR I = 0 TO 15:C9<I) = 0: NEXT 
I 

4020 FOR I * 1 TO 12 : PI<I> ■ 0:P 
2(I> = 0: NEXT 1 

4025 REM CARATTERIZZAZIONE DEI 
COLORI DAVANTI ALL'AVVERSAR 
IO 

4030 GOSUB 5100 

4040 J = 0 
4050 FOR 1 = I TO 4 
4060 X = XI<I):Y = YiCI) 

4070 YI = Y - 1 

4080 FOR K = - 1 TO 1 

4090 XI = X ♦ K 

4100 IF XI < 1 OR XI > 12 THEN 4 
160 

4110 IF C9CCOCXl ,YI)) = 0 THEN 4 

160 

4120 FOR L = 1 TO 4 

4130 IF X2< L> = XI AND Y2CL) = Y 
I THEN 4160 

4135 IF Xl<L> = XI AND Y1<L> “ Y 

I THEN 4160 
4140 NEXT L 

4150 J = J ♦ 1:P1<<l - 1) • 3 ♦ K 
♦ 2> = XI:P2< <I - 1) » 3 ♦ 

K ♦ 2) = YI 
4160 NEXT K 

41 70 NEXT I 

4180 RETURN 

5000 GR : COLOR= 0 

5005 FOR I = 0 TO 39: VLIN 0,39 AT 
1 : NEXT 

5010 FOR 1 = I TO 12 

5020 FOR J = 1 TO 12 

5030 COLOR= COCI.J) 

5040 VLIN P(J> - 1,P<J> ♦ 1 AT P 

<I> - 1 

5050 VLIN P<J> - l,P<J> ♦ 1 AT P 
<I> 

5060 VLIN PCJ) - I,P(J> * 1 AT P 
<!)♦! 
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5070 NEXT : NEXT 
5090 RETURN 

5100 REM PALETTA DI COLORI Gl 
OCABILI DAL GIOCATORE 
5110 FOR 1K = 0 TO 15zC9(IK) - 0 
! NEXT IK 

5120 FOR IK « I TO 4 
5130 C9<C0<X2<IK>,Y2< IK> + I)) - 
1 

5140 NEXT IR 
5150 RETURN 

5200 REM PALETTA 01 COLORI GIO 
LABILI DAL COMPUTER 
5210 FOR IK ■ 0 TO l5iC8<IK) - 0 
I NEXT IK 

5220 FOR IK » I TO 4 
5230 C8(C0(X1<IK),YI<IK) - l>> - 
I 


5240 NEXT IK 
5250 RETURN 

5300 REM REPERIMENTO DEI CASI 
ACCESSIBILI AL COMPUTER 
5310 FOR IK = I TO !2iP3(lK) = 0 
: P4< IK) » Oj NEXT IK 
5320 FOR IK = I TO 4 
5330 FOR KK = - 1 TO 1 
5335 IF X2<IK) « KK < 1 OR X2<1K 
> ♦ KK > 12 THEN 5370 
5340 IF C8(C0(X2<IK) * KK,Y2(IK) 
♦ 1>> - 0 THEN 5370 
5342 FOR JK = I TO 4 
5344 IF X2<IK) ♦ KK = XI(JK) AND 
T2( 1K) « 1 = YKJK) THEN 537 
0 

534* IF X2(IK) ♦ KK = X2<JK> AND 
Y2<IK> ♦ 1 = Y2<JK) THEN 537 
0 

5348 NEXT JK 

5350 P3<<IK - 1) • 3 ♦ KK ♦ 2) - 
X2<IK) ♦ KK 

53*0 P4<(IK - 1) • 3 ♦ KK ♦ 2) - 
Y2< IK) ♦ 1 
5370 NEXT KK 

5380 NEXT IK 

5390 RETURN 

7500 G0SU8 9050 

7510 INPUT -VUOI GIRARE IL CAMPO 
DI GIOCO? ’iR» 

7520 IF R* « "N" THEN RETURN 
7530 IF R» < > -S- THEN 7500 

7540 FOR I - I TO 12 

7550 FOR J “ 1 TO * 

75*0 T - CO<I,J):CO<I,J) - CO(I,I 
3 - J)iCOCI,13 - J) - T 


7570 NEXT J 
7580 NEXT I 
7590 RETURN 
8000 VTAB 101 HTAB 9 
8010 PRINT ■a-| CHR* <7)| 
8020 GOSUB 9000: GOSUB 9000 
8030 PRINT • U-| CHR* (7); 

8040 PRINT ■ A-j CHR* <7)( 
8050 PRINT ■ N"| CHR* <7)| 


80*0 PRINT ■ D"t CHR* (7>| 
8070 GOSUB 9000 : GOSUB 9000 
8080 PRINT * A-( CHR* (7>j 


ÓU90 FOP I - I TO ai GOSUB 9000: 

NEXT 

8100 PRINT ■ R'| CHR* <7>| 

8110 GOSUB 9000i GOSUB 9000 

8120 PRINT • Y"| 

8125 FOR I - I TO 20lA - PEEK < 

- I*33*>: NEXT 

812* SPEED- 1 SOl INVERSE I FOR I 

- I TO 22: UTAB 8: HTAB 31 - 
I : PRINT SPC< I> jI UTAB I2> 

HTAB 8 ♦ li PRINT SPC< l>| 
i NEXT Il NORMAL l SPEED- 25 
5 

8130 FOR I » I TO lOi OOSUB 9000 
: NEXT : RETURN 

8500 HOME i,INPUT ■CONOSCI LE RE 
GOLE (S/N) 1 » "jR* 

8510 IF R* - ■S* THEN RETURN 
8520 IF R» < > *N- THEN 8500 

8530 SPEED- 50: HOME 
8540 PRIVJT •OUANDARY E' UN GIOCO 
MOLTO SEMPLICE."I PRINT 
8550 PRINT -ALL'INIZIO, DISPONGO 
I TUOI PEZZI ■: PRINT 
85*0 PRINT -DI FRONTE Al MIEI <4 
CIASCUNO) SULLA-: PRINT 
8570 PRINT ■ PRIMA FILA DELLA SCA 
CCH1ERA.* : PRINT 
8580 PRINT "1 TUOI SONO 8IANCHI 
E DISPOSTI NELLA"I PRINT 
8590 PRINT -PARTE BASSA DELLO SC 
HERMO.-: PRINT 

8600 PRINT -I MIEI SONO NERI E 0 
I SPOSTI NELLA-: PRINT 
8610 PRINT -PARTE ALTA DELLO SCH 
ERMO.*! PRINT 

8*20 PRINT -CHI COMINCIA DEVE AU 
ANZARE UNO DEI ’: PRINT 
8*30 PRINT -SUOI PEZZI SULLA CAS 
ELLA DI FRONTE 0 ■: PRINT 
8*40 PRINT -DIAGONALMENTE DAUANT 
1 A DESTRA 0 A •: PRINT 
0650 PRINT -SINISTRA.-I PRINT 
86*0 PRINT -MA SE LA CASELLA DI 
ARRIVO E' DELLO-: PRINT 
8*70 PRINT -STESSO COLORE DI UNA 
DELLE 4 CASELLE ’: PRINT 
8*80 PRINT -POSTE DIRETTAMENTE D 
I FRONTE ALL' AV-*: PRINT 
8*90 PRINT "VERSAR IO LA MOSSA NO 
N PUÒ - AVERE LUOGO-: PRINT 
8700 PRINT -SCOPO DEL GIOCO E' D 
I PORRE UNO DEI "l PRINT 
8705 PRINT -PROPRI PEZZI SULLA F 
ILA DI PARTENZA- 

8710 PRINT : PRINT -DELL'AVVERSA 
RIO.-I PRINT 

8730 PRINT -SI HA L'OBBLIGO DI A 
VANZARE. SE NON E'-i PRINT 
8740 PRINT -POSSIBILE SI PASSA I 
L TURNO.'I PRINT : PRINT 
8750 FLASH : PRINT -BUONA FORTLN 
A" : NORMAL 

8760 FOR I - I TO 50: GOSUB 9000 
I NEXT 

87*5 SPEED- 255 
8770 RETURN 

9000 FOR J - 1 TO 1001 NEXT I RETURN 
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9050 HOME : HTAB I 4 I PRINT "0 U 

A N,D A R Y": VTAB 23I RETURN 

9060 COLOR= Ai: PLOT P(A2>,P<A3). 

i PLOT P<A2> - 1,P(A3) - Il PLOT 


P<A2) ♦ 1iPCA3) - 1: RETURN 

9070 CÙLOR= Al: PLOT P<A2>,P<A3> 

: PLOT P(A2) - l,P<A3> ♦ I: PLOT 
P(A2> ♦ I,P<A3> ♦ 1: RETURN 


Dama solitaria 



Questo programma permette di giocare una va¬ 
riante del notissimo gioco della dama. Si gioca 
su una normale scacchiera con 64 caselle. Sulle 
file esterne della scacchiera vengono poste 48 
pedine contrassegnate dai segni ' I '. Gli spazi 
vuoti che rimangono sono indicati dai segni V. 
Scopo del gioco è eliminare quante più pedine 
è possibile mangiando i vari pezzi con mosse 
diagonali tipiche della dama. Si può sfidare un 
amico in una divertente gara di abilità per ve¬ 
dere chi, alla fine, rimane col minor numero 
di pedine sul campo. 

Lo schermo dell'Apple è diviso in due parti. La 
parte di sinistra mostra la scacchiera con le pe¬ 
dine e gli spazi vuoti, mentre quella di destra 
fa corrispondere a ciascuna casella un nume¬ 


0 DIM A(Ó4>,A*<5> 

1 TEXT I CALL -936 

2 REM 

8 REM 

9 TEXT : CALL -936 

10 VTAB 3: PRINT "QUESTO E' IL Gl OC 
0 DELLA DAMA SOLITARIA": PRINT 

11 PRINT rSULLE FILE ESTERNE DI UNA 

SCACCHIERA VENGONO POSTE 48 

PEDINE": PRINT 

12 PRINT "L'OGGETTO DEL GIOCO E' DI 

ELIMINARE QUANTE PIU' POSSI 

BILI PEDINE CON MOSSE DIAGONALI 

(COME NELLA DAMA NORMALE)." 

13 PRINT "USA LA SCACCHIERA NUMERAT 
A SULLA DESTRA PER INDICARE LA C 
ASA IN CUI VUOI ANDARE" 

14 PRINT "SULLA SCACCHIERA DI SINIS 
TRA '1' INDICA UNA PEDINA E '0' 
UNO SPAZIO.": PRINT 


ro. 

Questi numeri sono usati per trasmettere le 
mosse prescelte al computer. Se non sono pos¬ 
sibili altre mosse rispondete con V alla doman¬ 
da ‘muovi da:' 

Il gioco è scritto in Integer BASIC che è una va¬ 
riante molto veloce del BASIC classico. Questo 
BASIC è posseduto da tutti gli appleisti perché 
fa parte dei programmi forniti con il sistema 
operativo DOS 3.3 o con il nuovo PRODOS. 
Questo linguaggio possiede una bellissima ca¬ 
ratteristica: il controllo della sintassi al momen¬ 
to della introduzione delle linee del program¬ 
ma evitando cosi i classici SYNTAX ERROR al 
momento dell'esecuzione. 


15 PRINT "QUANDO NON CI SONO PIU' M 
OSSE, DAI '0' ALLA DOMANDA 'MUO 
VI DAi'“ : PRINT 

16 INPUT "BATTI RETURN PER INIZIARE 
",A*: CALL -936 

20 POKE 32,16: POKE 33,23: VTAB 
2 

25 FOR 1 = 1 TO 8: PRINT " " j I j " " 
i: NEXT I : PRINT : PRINT " " 

|: FOR 1=9 TO 64: PRINT Ij" " 
i: IF NOT (I MOD 8) THEN PRINT 
: NEXT I 

30 POKE 32,0: POKE 33,40 

80 FOR J=l TO 64:A(J)=l: NEXT 
J: FOR J-19 TO 43 STEP 8: FOR 
I-J TO J+3:A(I)»0: NEXT 1,Ji 
M=0: GOTO 300 
100 POKE 34,18: CALL -936 
110 INPUT "MUOVI DA :“,F: IF F=0 

THEN 500: INPUT "Ai",Tl PRINT 

120 F1 = < F—1>/8:F2=F-8«F1 
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130 T1»<T-1>/8:T2=T-8«Tl 
140 1F F1>7 OR TI>7 THEN 200 
150 IF F2>8 OR T2>8 THEN 200 
160 IF ABS < F1-T1> #2 OR ABS <F2- 
T2)H2 THEN 200 
170 IF A(<T+F>/2>=0 THEN 200 
180 IF A<F)-0 OR A(T>-I THEN 200 

190 GOTO 250 

200 CALL -936: CALL -1054: PRINT 
“MOSSA ILLEGALE. RIPROVA..." 

: GOTO 110 

250 A<T>»1:A<F>=0:A<<T+F>/2>=0: 
M=M+1 

300 VTAB 2: FOR J-l TO 57 STEP 
8: FOR I-J TO J+7: PRINT A< 
I))" “j: NEXT I: PRINT l PRINT 
: NEXT J: PRINT 


310 CALL -384: FOR 1-2 TO 16: TAB 
16: VTAB I: PRINT ■ “: NEXT 
Il CALL -380: GOTO 100 

500 S—0: FOR 1-1 TO 64:S»S+A<I> 

: NEXT 1 

510 PRINT “HAI FATTO “jMi“ MOSSE. RI 
MANGONO -|SJ- PEZZI * : PRINT 

520 INPUT “GIOCHI ANCORA ? “,A* 

: IF A*=“S“ OR A*=“SI“ THEN 
80: IF A*-“N“ OR A*=“NO“ THEN 
600 

530 PRINT “RISPONDI SI 0 NO.’i GOTO 
520 

600 CALL -936: PRINT “CIAO!. SPERO C 
HE TI SIA DIVERTITO": TEXT 
: END 



Questo gioco deve essere giocato da due gio¬ 
catone e richiede riflessi pronti e rapidità nel 
prendere decisioni. Lo scopo del gioco è di riu¬ 
scire a catturare tutte le lettere che formano 
una determinata parola. 

Dopo avere dato il nome dei due giocatori, vie¬ 
ne richiesto il livello di difficoltà del gioco (da 
I a 3). Il numero I corrisponde al gioco più 
difficile mentre il numero 3 al gioco più facile. 
Successivamente viene richiesta la parola che 
deve essre formata dai due giocatori e che de¬ 
ve essere composta da cinque lettere senza 
nessuna ripetizione. Le cinque lettere vengono 
distribuite casualmente sul campo di gioco co¬ 
so REM 
UOUZO! 

BY BERT KERSEY 
COPYRIGHT 1980 
BEAGLE BROS 


70 GOSUB 32000 

SO POKE - 16298,0: GOTO 2110 
90 REM 


s tìtuito da un labirinto e da tante porte con¬ 
trassegnate da lettere, le porte possono esse¬ 
re spostate ed aperte dal giocatore che ha il 
turno per permettere di raggiungere più facil¬ 
mente le lettere. Queste possono essere spo¬ 
state anche dal computer in modo del tutto 
casuale. Il movimento del contrassegno del gio¬ 
catore avviene per mezzo dei tasti 'a e'z che 
lo muovono rispettivamente verso l'alto e ver¬ 
so il basso e per mezzo dei tasti e ‘.‘che 
lo muovono verso sinistra e verso destra. Il pri¬ 
mo dei due giocatori che riesce a formare la 
parola data all'inizio vince!! 

Buon divertimento!! 


TIMER 


100 

VTAB 23: 

HTAB 7: 

PRINT “ 

110 

FOR I = 1 
: NEXT 

TO 1 :S 

- PEEK <U> 

120 

TX = TX * 

1 : VTAB 

TX: HTAB 2: 


PRINT “ 
H: PRINT 

“: VTAB 

V ♦ AA: HTAo 

130 

FOR 1 = 1 

TO 55: 

NEXT 

140 

VTAB V ♦ 

* 

AA: HTAB H: PRINT P 


9 










150 1F V = 01 OR V ■ V2 THEN 170 

loO VTAB V ♦ AA: HTAB H: PRINT P 

», VTAB V * AA - A: HTAB Hi PRINT 

170 IF TX = 18 THEN 1740 

171 I 

172 RETURN 
1 BCl REM 

RESETTO IL TIMER 


440 V/T AB 221 HTAB 301 PRINT •<*: 

LOLOR= 12 : PLOT 29,44i COLOR- 
7: PLOT 29,45 
(150 REM 

%-ORTA 0 DIREZIONE 


ASO I - 1NT < RND (I) • 3>1 IF I 
< 2 THEN 790 
;470 REM 


IVO 

FOR I ■ 18 TO 1 STEP - I 

200 

VTAB 1*1: HTAB 21 

PRINT ‘ 


■: VTAB II HTAB 2: 

PRINT • • 

210 

INVERSE : VTAB 1 ♦ 

1 : HTAB 2 


: PRINT <18 - 1 ) - 
- 1) / IO) « IO 

INT <<IB 

220 

NORMAL 


230 

FOR J - 1 TO 3:S » 

: NEXT 1 NEXT 

PEEK <U> 

240 

NORMAL i RETURN 


250 

REM 


RUMORI 



2*0 

FOR 1 - 1 

TO 88 :S - 

PEEK <U 


>: NEXT l 

RETURN 


270 

P = INT < 

RND <1> • 

50) ♦ 1 

:»o 

POKE O.P 



290 

POKE 1,9: 

CALL 771 : 

RETURN 

300 

REM 




CHIEDI QUALE PORTA 


480 T - 0:TX = 0 IMG - MG * li GOSUB 
180 

490 IF BO - 1 THEN SIO 
500 VTAB 24I PRINT • 

510 VTAB 211 HTAB 1: PRINT "TOCC 
A A:"N* 

520 PRINT •QUALE PORTA? 

530 K = PEEK <0)1 IF K < 193 OR 
K = 206 THEN 540 
532 GOTO 600 

540 IF K < >172 AND K < >174 

AMD K < >149 AND K < >1 

.36 THEN 560 

542 INVERSE s V/TAB 24: HTAB I: PRINT 
• HO DETTO QUALE PORTA? "j 

550 GOSUB 250: POKE 00,0: NORMAL 

560 VTAB 23: HTAB 1: PRINT * 


CAMBIO GIOCATORI 


310 VTAB VI ♦ II HTAB HI: PRINT 

V/TAB V/2 : HTAB H2i PRINT 


570 FOR I = I TO 55: NEXT 
580 T = T ♦ 1 ! IF T - INT CT / T 
T> • TT = 0 THEN GOSUB 90 
590 GOTO 530 
oOO REM 

PORTA LEGALE? 


320 v/TAB VI: HTAB HI: PRINT LEFT* 
<N1*,3>: v/TAB V/2 ♦ 1 : HTAB H 
2: PRINT LEFT* <N2»,3> 

330 MG - 0:BO - OlB - B ♦ I 
340 INVERSE : VTAB 19: HTAB 4: PRINT 
INT <<B » l> / 2>l NORMAL 

350 A « A » - I:AA = A: IF AA - 

- ; THEN AA - 0 

351 : 

352 GM - 0 

360 P* - LEFT* (NI*,3):N* - NI*! 

V « V/l :H - HI : IF A < 0 THEN 
380 


370 

P* - LEFT* <N2*,3> 

:N* - N2*l 

: 

V = V2:H » H2 


380 

FOR 1 = 21 TO 23: 

VTAB I 

,V0 

PRINT * 

• 

400 

NEXT 


410 

prinY ■ 

■ c 


420 

IF A > 0 THEN 440 


430 

VTAB 23: HTAB 30: 

PRINT *<•: 


COLOR» 12: PLOT 29,42: COLOR- 
7: PLOT 29,43: GOTO 450 


610 FOR I » 1 TO LEN <Z*> 

620 IF K = ASC < MID» <Z» , I ,1 )> 
♦ 128 THEN 640 
630 NEXT : GOTO 540 
640 REM 

MUOV/1 LA PORTA 


650 N - I * IO ♦ 50 
ooO FOR P » N TO N ♦ 3: GOSUB 28 
0: NEXT 

6?0 IF RC!> - I THEN 720 
680 R< I > » I 

«90 VTAB V(1>: HTAB T<I> - 3: PRINT 

• -it,HTAB T<1> ♦ Il PRINT 

• ■: INVERSE 

700 VTAB VU> - 2: HTAB T< I > I PRINT 

• •: VTAB UU> - 1: HTAB T(I 
>: PRINT ■ •: VTAB V<I> * Il 

HTAB T<I> I PRINT • ’: VTAB 
VCI) ♦ 2: HTAB Tllll PRINT * 


IO 



705 : 

710 GOTO 750 

720 VTAB V< I > - 2i HTAB TU)! PRINT 
■ •: VTAB VU> - Il HTAB TU 
)! PRINT * "! VTAB VU> ♦ li 
HTA8 TU)! PRINT * *1 UTAB 
VU) t 2l HTAB TU)! PRINT * 

730 INVERSE 

7*10 RII) - Oi VTAB UU)l HTAB TU 
> - 3 ! PRINT • * ji HTAB T< 

I) ♦ I ! PRINT • 

750 FOR P * N ♦ 3 TO N • li GOSUB 
2801 NEXT 

7*0 NORMAL 

770 IF C - I THEN RETURN 

780 IF MG - 2 THEN 1350 

790 REM 

CHIEDI LA DIREZIONE 


800 IF BO = I THEN 820 
010 VTAB 24! HTAB li PRINT • 

820 T « OlTX • OlMG • MG ♦ Il GOSUB 
180 

830 UTAB U ♦ AA! HTAB Hi PRINT P 

840 POk’e - 163*8,0! UTAB 21 ! HTAB 
1 ! PRINT 'TOCCA A •jNS 
850 PRINT -ODALE DIREZI ONE?* 

860 K = PEEK IO)! IF K ( >172 AND 

K < >136 AND K < >174 AND 
K < ) 149 AND K < >193 AND 
K < >218 THEN 870 

862 GOTO 910 

870 UTAB 23i HTAB li PRINT * 


880 FOR I = I TO 55: NEXT 
890 T = T ♦ li IF T - INT <T / T 
T) • TT = 0 THEN GOSUB 90 
900 DOTO 860 
910 REM 

MOSSA LEGALE? 


920 IF K “ 136 THEN K « I72 
922 IF K = 149 THEN K - 174 


930 NN » 193 :SS » 2l8lEE - I74:WU 
= 172 

940 IF SCRNC H - 2,<2 • V> ♦ 1) 

» 2 THEN IXJ ■ 1 

950 IF SCRNC H ♦ 2,(2 • U> ♦ I) 

■ 2 THEN EE « 1 

960 IF SCRN< H ♦ 1,<2 • U) - 3) 

=■ 2 THEN NN «= 1 

970 IF SCRN< H ♦ 1,<2 • U) *3) 

- 2 THEN SS - 1 

980 IF <K = 172 AND K = UW) OR « 

K = 174 AND K » EE) OR <K » 

193 AND K » NN) OR CK - 218 AND 
K = SS). THEN 1020 

990 INVERSE ! UTAB 24: PRINT • 
ERRORE,ERRORE 1 !!• •; 

1000 GOSUB 250 


1010 NORMAL : POKE 00,0: GOTO 86 
0 1 
1020 REM 

MUCP31 L'UOMO 

» 

1030 M = - li IF K ■ 174 OR K ■ 

218 THEN M - l 

1040 F = V • AA:G = V ♦ AA - A : IF 
K « 174 OR K - 172 THEN 1120 

1050 REM 


1060 FOR 1 « 0 TO 3 • 

1070 UTAB F ♦ M • Il HTAB Hi PRINT 

P*: UTAB G ♦ M » Il HTAB Hi PRINT 

1080 FOR J " I TO 4:S ■ PEEK <U 
)! NEXT I NEXT 
1090 FOR I » 0 TO 3 
1100 UTAB F ♦ M • Il HTAB Hi PRINT 
• ■i UTAB G ♦ M • li HTAB 

Hi PRINT • -i NEXT 
Ilio U « V « 3 » M« GOTO 1190 
1120 REM 

MOSSA ORIZZONTALE 


1I30 FOR I = 0 TO 4 

1140 UTAB F: HTAB H ♦ I * M! PRINT 

P*: VTAB G: HTAB H ♦ I «Mi PRINT 

•**«* 

1150 FOR J = I TO 3iS = PEEK <U 
>i NEXT : NEXT 
1160 FOR I = 0 TO 4 
1170 UTAB Fi HTAB H * I • Mi PRINT 
• -! UTAB G: HTAB H ♦ I » 

Mi PRINT - *| NEXT 

1180 H=H t 4 « M 
1190 UTAB U ♦ AA! HTAB Hi PRINT 
P*: VTAB U ♦ AA - Ai HTAB Hi 
PRINT -»••- 

1200 IF A > 0 THEN 1230 
1210 UTAB U2 > Il HTAB H2l PRINT 
LEFT* <N2*,3>! VTAB U2l HTAB 
H2i PRINT *•»•* 

1220 GOTO 1240 

1230 VTAB Vi! HTAB HI ! PRINT LEFT* 
«NI*.3)! VTAB VI ♦ 1I HTAB H 
l! PRINT '•••■ 

1240 REM 


TERRENO 0 LETTERA? 


1250 FOR X = 1 TO 5i IF V = V(L< 

XD * I AND H - T<L<X)> ♦ I THEN 
1460 

1252 NEXT 
1260 REM 

CONTRO LA PARETE? 


1270 IF K < >172 THEN 1280 




1 272 

IF SCRNI 

H - 2, < 2 

« U) ♦ 

1 


) = 2 THEN 

1310 



1274 

GOTO 1020 




1280 

IF K < > 

174 THEN 

1290 


1282 

IF SCRNI 

H * 2,<2 

* U) ♦ 

1 


) =■ 2 THEN 

1310 



1284 

GOTO 1020 




1 290 

IF K < > 

193 THEN 

1300 


1292 

IF SCRN< 

H ♦ l ,<2 

• U) - 

3 


) - 2 THEN 

1310 



1294 

GOTO 1020 




1300 

IF SCRNI 

H ♦ 1,12 

• U) ♦ 

3 


) - 2 THEN 

1310 



1302 

GOTO 1040 




1310 

POKE 00,0 




1320 

IF A ) 0 THEN 1330 



1 322 

UI - UiHI - Hi GOTO 

1340 


1330 

U2 - UiH2 = H 



1340 

IF MG < 2 

THEN 470 



1330 

REM 





PORTE DEL COMPUTER 


1360 UTAB UI : HTAB Hi I PRINT LEFT* 
INI»,3)1 UTAB U2 ♦ 1: HTAB H 
2: PRINT LEFT* <N2»,3> 

1370 UTAB 23: HTAB 11 PRINT • 

■ 


Il 30 L<>> - INT I RND <1> * 20) ♦ 

I:N = L<X> 

1540 IF <U(N> ♦ 1 - VI RND TIN) ♦ 

I -HI) OR IUIN) ♦ 1 « U2 ANO 
TINI ♦ l = H2> OR IUIN) ♦ 1 “ 

V AND TIN) ♦ I - H> THEN 133 
0 

1550 FOR 1 - I TO 101 IF N - L<I 
) ANO X < > I THEN 1330 

1552 NljXT I 

1560 IF <U<N> * I = Ul) AND <T<N 

> « I - TI> THEN 1530 

1570 IF <U(N) * I » U2) AND (T(N 

> ♦ I * T2) THEN 1330 

1580 UTAB UlN) ♦ I : HTAB T(N) ♦ 

I: PRINT MID* <H*,X,I>| 

UTAB U(N) ♦ 2i HTAB T<N 

) ♦ 1 : PRINT *-'| CHR* <7> 

I NORMAL 

1590 UTAB U<N> ♦ I : HTAB T<N> ♦ 

I: PRINT --■j MID* <H*,X,I>| 

■=•: UTAB UlN) ♦ 2I HTAB TIN 

> * II PRINT •-* 

1600 UTAB U » AA - Ai HTAB Hi PRINT 

-.••-l UTAB U ♦ AAi HTAB Hi PRINT 
P* 

16I0 REM 


1373 I 

I 380 1NUERSE 

1390 UTAB 21: HTAB I: PRINT * L' 
APPLE MUOUE *t PRINT ■ 2 

PORTE. ’I NORMAL 

1400 FOR I « 1 TO 444: NEXT 
1410 C = 1:1 = INT < RND <1> • 2 
0i ♦ 1 : IF B = ! THEN I - I 
1412 GOSUB 640 
1420 FOR 1 « I TO 99: NEXT 
1430 1 “ INT ( UNO I!) « 20) * I 
i GOSUB 640iC = 0 
1440 UTAB 21: HTAB li PRINT * 

• t PRINT • 

1450 POKE 00,0: GOTO 300 
1460 REM 

SOSTITUISCI LA LETTERA 


1470 INUERSE : UTAB Ui HTAB Hi PRINT 
•OOT - : HTAB Hi PRINT "ITI* 

1480 FOR I - I TO 3: PRINT CHR* 

< 7); : IF I - 1 THEN POKE - 
16304,0 

1490 IF 1 - 3 THEN TEXT 
1492 NEXT 

1500 INVERSE : UT«B Ui HTAB Hi PRINT 
•PRE-i HThB H: PRINT •SO!": FOR 
I » 1 TO 535: NEXT 
1510 UTAB 19: HTAB 12: PRINT * U 
NO MID* <H*,X,I)|*' PER 
-|N*I‘I * 

1520 UTAB 22 * AA: HTAB 17 * 2 » 

X: PRINT • -i MID* <H*,X,1>1 
• -i CHR* t7>i CHR* (7)1 FOR 
1 » 1 TO 130: NEXT I 


AGGIUNGI IL PUNTEGGIO 


1620 IF A > 0 THEN 1660 
1630 S1CX) = S1<X) * Il IF S1IX) > 
1 THEN SI(X> - I 

1640 FOR I = 1 TO 5:ST » ST ♦ SI 
II): NEXT I 

1650 IF ST = 5 THEN 1890 
1652 ST = 0: GOTO 1690 
1660 S2<X> = S2<X> * l: IF S2CX) > 
1 THEN S2<X> = l 

1670 FOR I = I TO S:ST = ST ♦ S2 
<I): NEXT I 

1630 IF ST - 5 THEN 1890 
1682 ST = 0 

1690 MG = 0:80 ■= l i INUERSE 
1700 UTAB 24: PRINT * GIRO GRATI 
S-AVANTIH 1 ’I 

1710 FOR I » 1 TO 333: NEXT I 
1720 UTAB 19: HTAB 12: PRINT ’i 
S I I I I I •* 

1730 NORMAL : GOTO 1310 
1740 REM 

DACCAPO 


I750 POP 

1760 UTAB 21I PRINT * SCADUTO! 
i ! •: PRINT • 

3! ■ 

1770 UTAB 191 PRINT * 10: * I INUERSE 

1780 UTAB U: HT«B Hi PRINT “CIAO 
•: UTAB U ♦ li HTAB Hi PRINT 
•CIAO" 

1790 FOR I - 1 TO 333: NEXT I 
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1800 UTAB 2 * AA: HTAB 5: PRINT 
P*: UTAB 2 * AA - Ai MTAB 5 i 
PRINT ■*»*■ 

1910 NORMAL. l UTAB Ui HTAB Hi PRINT 
• -I OTAB U ♦ 1i HTAB Hi PRINT 

1320 GOSUB 250 

1830 UTAB 2 » AA1 HTAB 5i PRINT 
P*i UTAB 2 ♦ AA - Ai HTAB Si 
PRINT '•••“ 

1840 UTAB 19i PRINT ■* * *“ 

1850 PCIKE Q0 10 
I860 FOR I - I T0 300i NEXT I 
1670 IF.AA > 0 THEN I 830 
1872 Ul - 2lHI - 5l GOTO 300 
1880 02 » 2iH2 ■ Si GOTO 300 
1890 REM 

PUNTEGGIO FINALE 


1900 2* = **1 P0KE 00,0 

1910 OTAB 23I HTAB II PRINT * 

•i OTAB 24I PRINT 

" I 

1920 IF A > 0 THEN 1950 
1930 FOR I = I T0 5: IF S2(l) - 
1 THEN 2% * Z* ♦ MIO» < H*, I 
|1> 

1940 NEXT li GOTO 1960 
1950 FOR I = I T0 5i IF SI<I> - 
1 THEN Z* = Z* ♦ MIO» < H*, I 

1»52 NEXT I 

19e0 IF 2* = ■’ THEN 2* - “NOTHI 
NG“ 

1970 FOR 1 = 10 T0 36 

1980 OTAB 21i HTAB II PRINT • 

1 ■! OTAB 22I HTAB 


setta i parametri 


2110 H» =• -U0W20- 
2120 NI* - “Gl OCAT . I * iN2* - “GI0C 
AT.2* 

2130 2* = “ABCEFGHIJKL0PRSTUXY2"I 
QO « - 16368IU - - 16336 

2140 FOR I » I TO 5iSl ( 1 ) » 0 IS2 
<I) - 0I NEXT I 
2150 REM 

PREPARA2 1 ONE, TAO0L0 

2160 TEXT I HOME ! OTAB 101 HTAB 
15l PRINT “U O W 2 0 


2170 INOERSE 

2180 FOR I » 4 T0 40I OTAB 11 HTAB 
li PRINT “ “|! OTAB 191 HTAB 

11 PRINT “ “il NEXT I 

2190 FOR I = 2 TO I8l OTAB II HTAB 
41 PRINT “ 

2200 OTAB II HTAB 40I PRINT “ “l 
I NEXT I . 

2210 OTAB l! HTAB 15: PRINT “» 

• * 

2220 FOR I = 1 TO 20 
2222 0<l> = 3 * INT < <I - 1> / 4 
> ♦ 4 

2224 T<I)=5*8«<<I-1>- INT 
<CI - l> / 4> » 4> ♦ 3 
2230 IF <I >4 AND I < 9) OR <I > 

12 AND I < 17) THEN T<I> = T 
(I) ♦ 4 

2240 NEXT I 
2250 NORMAL 
2260 REM 


I i PRINT • 

1990 IF 1 - INT (I / 2> ♦ 2 = 0 
THEN POKE - 16304,0 
1992 IF 1 - INT <! / 4) • 4 “ 0 
THEN TEXT 

2000 GOSUB 270 :P «241 - 4 • Il OTAB 
21 I HTAB 3 


2010 OTAB 21I HTAB l! PRINT * 

*|N*|“ ■: PRINT “ OINCE 

IL GIOCO’" 


2020 

IF 1 

: < >54 THEN 

20 30 


20 22 

FOR 

J - 1 TO 500I 

NEXT 


20 30 

GOSUB 2801 NEXT 1 



2040 

N* - 

PUNTEGGIO i “ 

iN* » 


N* ♦ 

H*:N* » N* * “ 

TO “ 


2050 

N* - 

N* * Z»:N* - N* ♦ “ 

** 


•“i GOTO 2060 



2060 

FOR 

J ■ 1 T0 LEN 

(N*> : 

UTAB 


24: HTAB Ji PRINT MIO* <N*, 


SISTEMAZIONE LETTERE 


2270 FOR I = 1 T0 5 
2280 L<I> = INT < RND <1> « 20) * 
li IF I - 1 THEN 2300 
2290 FOR J » I TO 1 - Il IF L(l) 

= L<J> THEN 2280 
2292 NEXT 

2300 NEXT I : GOTO 2340 
2310 FOR J ■ I TO 8:S - PEEK <U 
>! NEXT I RETURN 

2320 FOR J » l TO 88I NEXT I RETURN 
2330 REM 

2340 FOR X » I TO 5ì GOSUB 2310 
2350 UTAB 10I HTAB II * X » 4I PRINT 

2360 UTAB 15: HTAB 14 ♦ X • 3l PRINT 


J . « > I 

2070 FOR O - 1 T0 4iS » PEEK <U 

>1 NEXT Oi FOR Q = 1 TO 15I NEXT 


MID* <H*,X,1)I GOSUB 2310 
2370 UTAB 15: HTAB 14 ♦ X * 3i PRINT 


: NEXT I UTAB 20: END 
2080 PRINT “ PUNTEGGIO l “| 

H*i“ TO *j2»|l UTAB 21 
I HTAB 1: GET A*: PRINT A»i GOTO 
63900 
2090 REM 


2380 UTAB 21: HTAB 18 ♦ X * 2: PRINT 
MID* ( H» ,X,I)I GOSUB 23101 GOSUB 
23201 NEXT 

2390 UTAB 22i HTAB 20I PRINT *- 

- <-•: UTAB 23i HTAB 2 

0: PRINT - 
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2400 INVERSE 

24)0 FOR X = 4 TO 40 STEP 4: FOR 

r ' 4 TO 19 STEP 3: VTA8 Yi HTAB 
X 

2420 PRINT ■l'jiS = PEEK <U) : NEXT 
! NEXT 
2430 REM 

PORTE CASUALI 


2440 FOR I ■ I TO 20:R<I> - INT 
( RNO (I) • 2> 

2450 P = 255 - <1 • 12)I GOSUB 28 
0 

2455 IF R<I# - I THEN 2470 
2460 VTAB V< I > : HTAB T(I) - 3l PRINT 
• • i I GOTO 2480 

2470 FOR J ■ VII) - 2 TO Oli) • 

21, VTAB J) HTAB T<I)1 PRINT 
■ "i: NEXT 

2480 UTAB V<1): HTAB T<I>i PRINT 
MIO» <2*,1,1>|I FOR J - 1 TO 
2:S - PEEK (U)i NEXT 
2490 GOSUB 260I NEXT I 
2500 NORMAL 

2510 FOR I - 1 TO 222: NEXT I: GOSUB 
2670 
2520 REM 

POSIZIONA LE LETTERE 


2530 INVERSE i VTAB 19: HTAB 4: PRINT 

: : :‘: VTAB 1 : HTAB 4 

0: PRINT ■:■: NORMAL 


2540 FOR X - I TO 5: VTAB V(L(X> 

> * I : HTAB T<L(X>> ♦ I 
2550 P - 255 - X • 50: GOSUB 280 
2560 PRINT • = •) MIO» <H*,X,l)f- 

2570 GOSUB 280: GOSUB 280 
2580 VTAB V(L(X>> ♦ 2: HTAB T(L< 
X)) ♦ 1: PRINT 
2590 GOSUB 280 

2600 GOSUB 2310: FOR J - 1 TO 99 
1 NEXT l NEXT 

2610 VTAB 2: HTAB 5: PRINT ■•••■ 

: VTAB 3: HTAB 5: PRINT *••• 

2620 FOR I - I TO 50: NEXT I 

2630 FOR I = I TO 50:S - PEEK < 

U> - PEEK <U> - PEEK <U> - 
PEEK (U) - PEEK <U>: NEXT 
I 

2640 FOR 1 = I TO 19: VTAB 1: HTAB 
I : PRINT NEXT I 

2650 A = INT < RND <l> • 2) I IF 
A = 0 THEN A = - 1 

2660 VI = 2:U2 = 2:HI - 5:H2 - 5: 

GOTO 300 
2670 REM 


RICHIESTA NOMI 


2680 NI» - : : : i : 

: : : :" :N2» - ■ <R 
ISPONDI E POI PREMI <RETUR 
N>.) * 

2690 INVERSE 

2700 FOR I = 40 TO 6 STEP - 2:P 
« I : GOSUB 280 

2710 VTAB I: HTAB 44-1: PRINT 
MIO» (NI*,41 - 1,2)1 VTAB 1 

9: HTAB 44-1: PRINT MIO» 
(N2*,41 - 1,2)1 NEXT I 
2720 POKE 33,18: POKE 34,20 
2730 VTAB 21 : HTAB I : GOSUB 3050 

2740 PRINT - GIOCATORE I7"; 

2750 VTAB 23: PRINT ■ 

-•i: VTAB 22 

2760 INPUT • —>*|N1* 

2770 FOR I - 1 TO 15: GOSUB 270: 

NEXT I 

2780 IF NI* » ” THEN 2730 
2782 IF LEN (NI*) > 8 THEN NI* = 
LEFT* <N1*,8) 

2784 POKE 33,40 

2790 IF LEN (NI*) = 2 THEN NI* = 

NI* ♦ * ■ 

2792 IF LEN (NI») = I THEN NI* » 

NI* t • • 

2800 NpRMAL : VTAB 22: HTAB 32: PRINT 
* •(: HTAB 32: PRINT 

NI*: GOSUB 3050 
2810 PRINT • GIOCATORE 2?“i 
2820 VTAB 23: PRINT * 

-... VTAB 22 

2830 INPUT " —>*jN2* 

2840 FOR 1 = I TO 15: GOSUB 270: 

NEXT I 

2850 IF N2* = ■" THEN 2880 

2860 IF LEN (N2*) = 2 THEN N2* = 

N2* ♦ * ‘ 

2862 IF LEN (N2*> = 1 THEN N2* = 

N2* ♦ • ‘ 

2870 IF LEFT* <N2*,3) - LEFT* 

(NI*,3) THEN 2880 

2872 IF LEN (N2*> > 8 THEN N2* « 
LEFT* (N?*,8) 

2874 GOTO 2B90 
2880 GOSUB 3050: GOTO 2810 
2890 POKE 33,40: NORMAL : VTAB 2 
3: HTAB 32: PRINT ■ 

i: HTAB 32: PRINT N2*: GOSUB 

3050 

2900 PRINT ■ INDURO..,3-FACJLE* 

2910 VTAB 23: PRINT * 

: VTAB 22 

2920 PRINT * I, 2 OR 3’|| INPUT 
T»:TT » VAL (T*>: IF TT > 5 
THEN TT « 5 

2922 IF TT < 1 THEN TT = 1 
2930 TT = 2 » TT - 1 : GOSUB 3050 

2940 FOR I = 15 TO 1 STEP - 1: GOSUB 

270: NEXT I 

2950 PRINT • PAROLA ? * 

2960 VTAB 23: PRINT • 

-•|: VTAB 22 


14 






2970 INPUT • 5 LETTERE — >• (M* 

2980 IF H* = " THEN 3000 

2982 IF LEN <H*> < > 3 THEN 30 

00 

2990 FOR I ■ I TO 5i FOR J - I T0 
5i IF MID* (H*,I ,l> - MIO* 
<H*,J,1> ANO J < > I THEN 3 

« 000 

2992 NEXT I NEXT : GOTO 3010 

3000 OOSUB 3050! PRINT ■ NIENTE 
RIPETIZIONI...*I GOTO 2960 

3010 FOR I - I TO 50 STEP 2:P » 

I : GOSU6 2801 NEXT I ! NORMAL 
: POKE 33,40: POKE 34,0 

3020 FOR I - 20 TO 24 ! VTAB II HTAB 
Ii PRINT ■ 

■(I NEXT I 

3030 FOR I « I TO Si UTAB 21 ! HTA8 
18 ♦ 2 • Il PRINT MIO» <H*, 

1,1> 11 NEXT I 

3040 FOR I - I TO 500 ! NEXT II RETURN 


>u*. POKE 33,18: IMMERSE i UTAB 
21i HTAfa li PRINT • 

3060 VTAB 21 : HTAB I ! RETURN 
3070 PRINT ■ 

' I 

3080 POKE 33,18: UTAB 21i HTAB 1 
i RETURN 
3120 i 
3130 I » 

3140 I , 

32000 POKE 771,173: POKE 772,48: 

POKE 773,192! POKE 774,136 ! 

POKE 775,208i POKE 776,4I POKE 
777,198! POKE 778,li POKE 77 
9,240i POKE 780,01 POKE 761, 

202: POKE 782,208! POKE 783, 

246: POKE 7B4,l6o! POKE 785, 

0: POKE 786,76: POKE 787,3: POKE 
788,3! POKE 789,96 
.32762 DIM L(20>,R(20),SI(5>,S2<5 

),T<20>,V(20>IO - - I6384i RETURN 



Questo programma, che sfrutta la grafica del 
vostro Apple II. è un gioco di azione per una 
o due persone. Per mezzo della paddle mano¬ 
vrerete il vostro veicolo spaziale e segnerete dei 
punti quando riuscirete a colpire i dischi volano 
rossi del nemico. Se sarete capaci di passare 
indenni attraverso la flotta nemica e poi con 
rapida inversione ad U di abbatterla, il vostro 
punteggio salirà notevolmente. Nel frattempo 
dovrete però stare attenti ad evitare le mine 
spaziali azzurre: colpirne una equivale a ve¬ 
der dimezzato il punteggio. Il gioco è reso più 
divertente dai dischi volanti nemici che di tan¬ 
to in tanto appaiono all'improvviso nello spa¬ 
zio. Quando si colorano di azzurro diventano 
estremamente pericolosi, perché assumono le 
caratteristiche delle mine e, per di più, si spo¬ 
stano!!! Se colpirete un disco volante diventato 


azzurro vedrete quindi dimezzalo il vostro pun¬ 
teggio. Un vero disastro! Per vostra consolazio¬ 
ne almeno non dovrete preoccuparvi di evita¬ 
re il velivolo dell'altro giocatore perché non gli 
potete arrecare nessun danno. Imparare a gui¬ 
dare bene un veicolo spaziale richiede un mi 
nimo di esercizio: immaginate che la vostra 
paddle abbia una lancetta che segna le 2 e 
ruota in senso orano fino a raggiungere le 12 
il vostro veicolo si muoverà nella direzione in 
dicala dalla lancetta immaginaria della pad- 
die. 

Saprete sempre in quale direzione state andan¬ 
do perché il vostro velivolo consiste di due qua¬ 
drati: uno bianco davanti, indicante la prua del¬ 
la navicella spaziale, indicante la direzione dello 
spostamento ed uno colorato dietro, la pop¬ 
pa. 
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110 

TEXT ! HOME 


130 

HTAB 2! VTAB 10 ! PRINT 

■QUAN 


TI GIOCATORI (1 02) ? 

i • 

140 

GET N» 


130 

IF N* < > • 1 ■ <*ID N* < 

2- THEN 130 

> * 

153 

N - VAL <N*> 


160 

VTAB 13i PRINT -ISTRUZIONI ? 


< S/N) • 


170 

GET Y* 


180 

IF Y» ■ 'S- THEN GOSUB 

> 1020 

190 

P1WX - N - 1 


200 

VTAB 21I HTAB lOi PRINT 
TI TEMPO*| 

•PUN 

210 

GR 


220 

GOSUB 720 


230 

GOSUB 840 


240 

X<0> - 1 SiY<0) - 20 


230 

X<1) - 30iY<I) - 20 


rZ60 

REM 


270 

P - 0 


280 

TIME - TIME ♦ 1 


290 

IF TIME / 3 - 1NT (TIME / 3 


) THEN GOSUB 360 


300 

COLOR- 0 


310 

PLOT XOLD<P).YOLDCP) 


320 

PLOT X<P),Y<P) 


330 

XOLDIP) - X<P>IYOLD< P) - 

Y<P> 

340 

GOSUB 430 


330 

IF SCRN< X< P>,Y< P> > - 

2 THEN 


GOSUB 910 


360 

IF SCRN< XCP),Y<P>) - 

9 THEN 


GOSUB 970 


370 

COLOR- 15 


380 

PLOT X(P),Y<P) 


390 

COLOR- Il t P 


400 

PLOT XOLDIP),YOLDCP) 


410 

P - PMAX - P 


420 

GOTO 280 


430 

REM 


440 

JCP) - INT < PDL <P) / 

31 .0) 

430 

VTAB 22 ♦ Pi HTAB lOi PRINT 

■ ■ 

460 

VTAB 22 ♦ Pi HTAB 10i PRINT 


WINCP)| SPC< 9)|i IF P 

- 0 THEN 


PRINT TIME 


470 

IF J<P> < 2.5 THEN X<P> 
P> ♦ 1 

- X< 

480 

IF J<P) > 3.3 AND J<P) 

< 6.3 


THEN X<P> - X<P> - 1 


490 

IF JCP) > 1.3 AND J<P> 

< 4.3 


THEN Y<P) - Y<P> ♦ 1 


300 

IF JCP) > 3.3 OR J«P> < 
Y<P> - Y<P> - 1 

0.3 THEN 

310 

IF X<P> > 39 THEN X<P> 

- 39 

320 

IF X<P> < 0 THEN X(P> - 

0 

330 

IF Y< P) > 39 THEN Y(P> 

- 39 

340 

IF Y<P) < 0 THEN Y(P> - 

0 

330 

RETURN 


360 

REM 


370 

0 - PEEK < - 16336) 4 

PEEK 


( - 16336) 


380 

N - INT C3 • RND CI) 4 

0.3) 

390 

RAN - RND <1) 


600 

COLOR- 0 



6tO GOSUB 790 

620 R<N> - R<N) ♦ <RAN > 0.3) - 2 
» IRAN > 0.73) 

630 S<N> = S(N> ♦ IRAN < 0.3) - 2 
» IRAN < 0.23) 

640 IF R(N) > 35 THEN R(N> - R(N 
) - 10 « RND <I> 

630 IF R(N) < 0 THEN R<N) - IO » 
RND (!) , 

660 IF S<N) > 33 THEN SIN) - SIN 
> - IO • RND (!) 

670 IF S<N) < 0 THEN SIN) - 10 • 
RND (I) 

600 COLOR- 9 

690 IF RND <1) > 0.7 THEN COLOR- 
2 

700 GOSUB 790 
710 RETURN 
720 REM 
730 COLOR- 9 
740 FOR N - I TO 3 
730 R(N) - 34 » RND (1>|S<N) - 3 
3 • RND <l> 

760 GOSUB 790 
770 NEXT N 
780 RETURN 
790 REM 

800 HLIN R(N> ♦ I,R(N) 4 3 AT S< 

N> 

BIO HLIN RCN) ,R<N) 4 4 AT S<N> ♦ 

I 

820 PLOT R<N) ♦ 2,S<N) 4 2 
830 RETURN 
840 REM 

830 FOR N - I TO IO 
860 COLOR- 2 

870 A<N> = 35 * RND <1>|B<N) = 3 
3 * RND (I) 

880 PLOT A(N) ,8<N> 

890 NEXT N 
900 RETURN 
910 REM 

920 FOR M - 1 TO 20 
930 0 - PEEK < - 16336) ♦ PEEK 
( - 16336) 

940 NEXT M 

930 U1N< P) - 1NT < (UJ1N< P> ) / 2) 

960 RETURN 
970 REM 

980 CALL - 1039 

990 W1N<P> - UINIP) ♦ I 

1000 IF UINCP) > 13 THEN 1280 

1010 RETURN 

1020 REM 

1030 HOME 

1040 PRINT • • •••• SPACE Z 

APPER •••••■ 

1030 PRINT. . 


1060 PRINT 

1070 PRINT -GUIDARE CON IL PADDL 
E PER COLPIRE’ 

1080 PRINT -I PEZZI DELL'ASTRONA 
VE ROSSA.- 
1090 PRINT 

1100 PRINT -PUNTEGGIO! UN PUNTO 
OGNI PEZZO COLPITO- 
1105 PRINT "DELL'ASTRONAVE ROSSA 
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1107 PRINT 

1108 PRINT ‘ATTENZ I ONE ' ! ! LEAST 
ROMANI CAMBIANO DI • 

1110 PRINT ‘COLORE. COLPENDO UN 
PEZZO DI ‘ 

1120 PRINT ‘ASTRONAVE BLUE 0 UNA 
MINA VAGANTE BLUE" 

1130 PRINT ‘VIENE DIMEZZATO IL P 
UNTEGGI0 RAGGIUNTO- 
IMO PRINT ‘FINO A OUEL MOMENTO. 

1150 PRINT 

IMO PRINT ‘LA VOSTRA DIREZIONE 

E- RAPPRESENTATA DAL‘| 

1170 PRINT .‘QUADRATO BIANCO.* 
UBO PRINT 

1190 PRINT ‘VINCERÀ' QUEL GIOCAT 

ORE CHE PER PRIMO" 

1200 PRINT ‘SUPERERÀ' 15 PUNTI." 

1210 PRINT 
1220 INVERSE 

1230 PRINT ‘PREMERE BARRA SPAZIA 
TRICE‘ 

1240 NORMAL 
1250 GET K* 

1260 HOME 
I270 RETURN 
1280 REM 


1290 HOME I VTAB 21 
1300 CALL - 1059! CALL - I059i 
CALL - 1059 

1310 FLASH ! PRINT ‘GAME OVERM • 

•» NORMAL 

1320 FOR J - 0 TO PMAX i PRINT "G 
IOCATORE ‘|J|‘ PUNTI ‘|UIN<J 
>|‘| ‘|I NEXT J 

1330 IF LJ*N<0> - UIN< I > THEN GOSUB 
I500i GOTO 1360 
1360 PUI - <LJIN< 1) ) L1INC 0) > 

1350 PRINT i PRINT ‘VINCE IL GIO 
CATORE ‘ | PW 

1360 PRINT -UN' ALTRA PARTITA <S 
/N)‘ | 

I370 GET Y* 

1380 IF Y» • ‘S‘ THEN 200 
1390 TEXT i HOME ! PRINT ‘PREMER 
E 'ESC' PER TERMINARE" 

I600 PRINT ‘QUALSIASI ALTRO TAST 
0 PER RICOMINCIARE" 

MIO GET G* 

1620 IF M • CHR* <27> THEN HOME 
i END 

1630 PRINT ! PRINT CHR* <6>j‘RU 
N HELLO" 

1660 END 

1500 PRINT ‘ PARITÀ' !! 

‘ i RETURN 


i 

TI-99/4A 


prum machine basic 


Questa settimana impariamo a suonare la bat¬ 
teria con il nostro 77-99. 

Con la digitazione di questo semplice listato in 
TI-BASIC avrete a disposizione un perfetto si¬ 
mulatore ritmico, con ben IO ritmi memoriz¬ 
zali. 

Utilizzando la CALL SOUND, il TI viene utiliz¬ 
zato per eseguire battute di 4/4 ed oltre, te¬ 
nendo il tempo con una perfezione al millise¬ 
condo. 

Addirittura, il programma vi offrirà la partitu¬ 


100 REM 

HO CALL CLEAR 

120 PRINT TAll ( 8) ; "DRUM MACHINE" 
130 PRINT : : :"SARA 1 MOSTRATA UNA 


ra della sezione ritmica. 

Insomma un programma utile sia per chi sa 
leggere le note, sia per chi semplicemente di¬ 
spone di un Bongo su cui provare i ritmi senti¬ 
ti. sia per chi sta imparando a suonare qual¬ 
siasi strumento a percussione e non, per per¬ 
fezionare l'utilizzo del ritmo nell'accompagna¬ 
mento di melodie. 

Quindi buon lavoro, e chissà mai che su que¬ 
ste pagine, in futuro, venga pubblicato il pri¬ 
mo "Concerto per TI e percussioni" 


140 PRINT :“FORMA RITMICA SULLO 
SCHERMO." 

150 PRINT :"DIVERTITI A RULLARE" 
160 PRINT :"CON IL TUO TI-99.":: 
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170 PRINT : :"HAI 10 RITMI A DISP 
OS 17, IONE. " : : : : : 

180 0=300 

190 FOR C=97 TO 117 
200 READ C$ 

210 CALL CHAR(C.CS) 

220 NEXT C 

230 REM DATA PER CARATTERI 

240 DATA OOOOOOOOOOOOFF,00000000 

02O2FF02,0000FF00OO00FF,0202FF02 

3A7E7C38 

280 REM 

260 DATA 10080C1830300804,1C2020 
100800FF,000000000000FFOP,000000 
OOOOOOFFE 
270 REM 

280 DATA 1038FF380000FF,3110FF08 
0908FF1(OOOOFFOOOl1OOFF,1020FF80 
0000FF 
290 REM 

300 DATA OOOOOOOOOOOOFFIO,242444 
7E0404001,102424447E04FF,0000000 
OOOOOFC2C 
310 REM 

320 DATA 2C2CFC2CAC2CFC2C,AC2CFC 
2C2C2CFC,000000000000FF08,0808FF 
080808FF08 
330 REM 

340 DATA 0808FF080808FF 
390 REM 

360 FOR 1=0 TO 9 
370 READ PS(I) 

380 NEXT I 

390 PRINT "UN TASTO PER INIZIARE 

400 CALL KEY(0,K,S) 

410 IF S<1 THEN 400 

420 REM 10 PATTERN 

430 FOR C=1 TO 10 

440 CALL CLEAR 

490 REM SCELTA PATTERN 

460 RANDOMIZE 

470 R=INT(10*RND) 

480 IF PS(R)THEN 470 
490 RS*PS(R) 

500 REM PARTITURA 

510 CALL HCHAR(10,3,97,26) 

520 CALL HCHAR(11,3,99,26) 


530 CALL HCHAR(12,3,99,26) 

540 CALL HCHAR(10,4,103) 

550 CALL HCHAR(10,5,104) 

560 CALL HCHAR(11,4,105) 

570 CALL HCHAR(11,5,106) 

580 CALL HCHAR(12,4,107) 

590 CALL HCHÀRtl2,5,108) 

600 CALL HCHAR(10,7,109) 

610 CALL HCHAR(11,7,110) 

620 CALL HCHAR(12,7,111) 

630 REM DISEGNO NOTE 
640 X=8 

650 FOR 1=1 TO 16 

660 IF SEGS(RS,1,1)="R" THEN 700 


6 ' 1 -‘ALL HCHAR ( 1 0 , X H , 98 ) 

60 :ALL HCHAR(11,X+I,100) 

69U GOTO 730 

700 CALL HCHAR(11,X+I,101) 

710 CALL HCHAR(12,X+1,102) 

720 IF 1=16 THEN 780 

730 IF I/4<>INT(I/4)THEN 780 

740 X=X+1 

750 CALL HCHAR(10,X+I,115) 

760 CALL HCHAR(11,X+1,116) 

770 CALL HCHAR(12,X+I,117) 

780 NEXT I 

790 CALL HCHAR(10,29,112) 

800 CALL HCHAR(11,29,113) 

810 CALL HCHAR(12,29,114) 

820 REM ESECUZIONE RITMI 
830 CALL SOUND(100,1497,2) 

840 FOR K=1 TO 2 

850 CALL HCHAR(13,8,32,20) 

860 X=8 
870 J«1 

880 FOR 1=1 TO 16 

890 IF SEGS(RS,I,1)*"R" THEN 920 

900 CALL SOUND(D,-7,2) 

910 GOTO 930 

920 CALL SOUND(0,9999,30) 

930 CALL HCHAR (13,X+I,J + 48) 

940 CALL SOUND (1,9999,30) 

950 J=J+1 

960 IF 1/40INT ( 1/4 ) THEN 990 

970 J=1 

980 X=X+1 

990 NEXT I 

1000 NEXT K 

1010 NEXT C 

1020 REM DATA PER RITMI 
1030 DATA TTTTTTTTTTTTTTTR 
1040 DATA RTTTRTTTRTTTTTTR 
1050 DATA RTRTRTRTRTRTl'TTR 
1060 DATA TRTRTRTRTRTRTTTR 
1070 DATA TTRTTTRTTTRTTTTR 
1080 DATA TRTTTRTTTRTTTTTR 
1090 DATA TTTTRTTTTTTTRTTR 
! 100 DATA RTTTRTRTRTTTRTTR 
1110 DATA TRTRRTTTRTRTRTTR 
1I20 DATA TTRTRTRTTTRTRTTR 
1130 CALL CLEAR 

1140 PRINT "LINEA 180 PER VARIAR 
E TEMPO.":: : 

1150 END 


Aspettiamo 
i tuoi 
lavori 
migliori! 
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Reflection 


Nonostante il nome esotico, dietro a questo en 
nesimo programma in BASIC si cela un 'ottima 
versione del famosissimo gioco dell'Othello (o 
Reversi). Le regole sono le solite: catturare le 
pedine avversarie circondandole alle estremi¬ 
tà con le proprie, in modo da renderle del pro¬ 
prio colore. Vince chi al termine delle mosse 
possibili ha più pedine. 

Caratteristica principale di questa versione è 
il poter posizionare le pedine utilizzando i ta¬ 
sti con le frecce (o, tramite una semplice su¬ 
broutine, con i Joystick), e non fornendo delle 


TI-99/4A 

-I 


scomode coordinate come se si stesse giocan¬ 
do a battaglia navale. 

In alto a destra viene inoltre visualizzato a chi 
sta il diritto di mossa, più sotto la situazione 
quanutativa-pedine. 

Per confermare la vostra mossa, dopo aver po¬ 
sizionato la pedina con i tasti con le frecce, pre¬ 
mete la barra spaziatrice. 

Dimenticavo, occhio a non tentare mosse ille¬ 
cite: il TI vigila e per punizione potrebbe an¬ 
nullarvi tale mossa. 
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10 DIM BO(80J ,TA(71),PT( 71 ) , A ( 71 
) » PO(80) 

20 GOTO 70 

30 FOR 1=1 TO LEN(A$) 

40 CALE HCHAR(R,C+I, ASC(SEGS(AS , 
1,1))) 

50 NEXT I 
60 RETURN 
70 TU = 1 
80 RANDOMIZE 

90 GOSUB 3850 
100 GOSUB 1310 
110 IF DE=0 THEN 130 
120 GOSUB 4090 
130 GOSUB 1540 
140 IF DE=0 THEN 170 
150 GOSUB 1650 
160 GOTO 330 
170 RESTORE 4080 
180 FOR Y=2 TO 5 
190 FOR X = 2 TO 5 
200 READ PO(Y*9+X) 

210 NEXT X 
220 NEXT Y 
230 BO(30)=2 

240 BO(31)=1 
250 BO(39)=1 
260 BO(40)=2 
270 BC = 2 
280 WC = 2 

290 CALE HCHAR(11,13,128) 

300 CALL HCHAR(11,16,120) 

310 CALL HCHAR(14,13,120) 

320 CALL HCHAR(14,16,128) 

330 FL=1 
340 X=4 
350 Y=4 
360 KH=128 

370 IF TUOI THEN 390 
380 KH=120 

390 CALL HCHAR(4,28,KH) 

400 AS=STRS(BC)S" " 

410 R=17 
420 C=27 
430 GOSUB 30 
440 R*22 

450 A$=STR$ (WC) i," " 

460 GOSUB 30 

470 IF (CMOI ) + (TUOI )THEN 500 
480 GOSUB 2730 
490 GOTO 900 
500 KH=1 

510 CALL GCHAR(3*Y+2,3*X+4,GG) 
520 KH=1-KH 

530 CALL HCHAR( 3*Y+2,3*X+4,120+8 
*KH) 

540 CALL KEY(0,K,S) 

550 IF S=0 THEN 520 
560 IF (KOASC ( "E" ) ) + (Y<1 ) THEN 6 
00 


57U -ALL HCHAR(3*Y+2,3*X+4,GG) 
580 Y = Y - 1 
590 GOTO 510 

600 IF (KOASC ("S”)) + (X<1) THEN 6 
40 

610 CALL HCHAR(3*Y+2,3*X+4,GG) 
620 X=X-1 
630 GOTO 510 


640 IF (KOASC ( "D" ) ) + (X>6) THEN 6 
80 

650 CALL HCHAR(3*Y+2,3*X+4,GG) 
660 X=X+1 
670 GOTO 510 

680 IF (KOASCC'X") ) + (Y>6)THEN 7 
20 

690 CALL HCHAR(3*Y+2,3*X+4,GG) 
700 Y=Y+1 
710 GOTO 510 

720 IF KOASC ("0" )THEN 870 

730 A$="SICURO DI VOLER FINIRE(S 

/N)?" 

740 R=24 
750 C=2 


760 GOSUB 30 

770 CALL KEY(0,K,S) 

780 IF S=0 THEN 770 

790 IF K<>83 THEN 820 

800 EE=1 

810 GOTO 830 

820 IF K<>78 THEN 770 

830 A$=C$&" 

840 C=2 


850 GOSUB 30 

860 IF EE=1 THEN 2370 

870 IF KOASC (” " ) THEN 520 

880 XY=Y*9+X 

890 IF BO(XY)>0 THEN 520 

900 IF FL=0 THEN 990 

910 CALL HCHAR(Y*3+2,X*3+4,120+( 

TU-1)*8) 

920 IF PO(XY)=0 THEN 990 
930 CALL SOUND(100,440,2) 

940 GOSUB 2060 

950 IF CHIPS<1 THEN 990 

960 GOSUB 2300 


970 BO(XY)=TU 
980 GOTO 1110 
990 R=24 

1000 CALL SOUND (100,1 10,2.) 

1010 C=2 

1020 A$="ILLEGALE! - TURNO PERSO 

1030 GOSUB 30 
1040 FOR 1=1 TO 500 
1050 NEXT I 
1060 A$=C$ 

1070 GOSUB 30 
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1080 IF FL=0 THEN 1100 

1090 CALL HCHAR(3*Y+2,3*X+4, 32 ) 

1100 GOTO 1210 

1110 IF TUOI THEN 1 1 50 

1120 BC=BC+CHIPS+1 

1130 WC=WC-CHIPS 

1 140 GOTO 1170 

1150 WC=WC+CHI PS+1 

1160 BC=BC-CHIPS 

1170 POR Q = 1 TO 8 

1180 IF XY+OF(Q)<0 THEN 1200 

1190 PO(XY+OF(Q)) = 1 

1200 NEXT Q 

1210 TU=3-TU 

1 220 IF ( WC = 0 ) + ( BC “ 0 ) + ( WC +ÌJC = 64) 

THEN 2370 

1230 GOSUB 1270 

1 240 IF (XY<>0)*(XY<>7)*(XY<>63) 

* (XYO70) THEN 1260 

1250 GOSUB 3540 

1260 GOTO 330 

1270 FOR 1=0 TO 71 

1280 TA(I)=0 
1290 NEXT I 
1300 RETURN 
1310 CALL CLEAR 
1 320 CALL SCRBEN(1 1 ) 

1330 PRINT TAB(10);"REFLECTION": 

1 340 PRINT TAB(11);"1 A MOSSA" 
1350 INPUT " (B)IANCO/(N)ERO 

: " : AS 


1360 PRINT :: 

1370 IF (A$<>"B")*(A$<>“N")THEN 
1 340 

1 380 IF A$ = "B" THEN 1400 
1390 TU=2 

1400 PRINT TAB(10);"SCACCHIERA" 

1410 INPUT " (N)ORMALE/(D)ISEGN 

ANE UNA:":A$ 

1420 PRINT :: 

1430 IF (AS<>”D")*(A$<>"N")THEN 


1400 

1440 IF A$="N" THEN 1460 
1450 DE=1 

1460 INPUT " » GIOCATORI [1/2] 

?: ":CM 

1 470 IF (CM<>1)*(CM<>2)THEN 1460 
1480 PRINT :: 

1490 CM=(CM=2)*2+CM 
1 500 IF CM=0 THEN 1 530 
1510 INPUT " LIVELLO DIFFICOL 
TA 1 ? : ": LE 

1520 IF (LEOl ) * (LE<>2) THEN 1510 


1530 RETURN 

1540 AS="pqrqqrqqrqqrqqrqqrqqcqq 
r" 

1550 B$ = "s t t t t t t t 
t" 

1^60 C$="uvwvvwvvwvvwvvwvvwvvwvv 

1570 CALL SCREEN(2) 

1580 CALL COLORII 1 ,1,1) 

1590 CALL COLOR(13,1 ,1) 

1600 PRINT A$,B$,BS,A$t,"",B$,B$& 
"MOS",A$,B$,B$,A$,B$,B$,A$&" TOT 
" , BS , B$l> " x:",A$,B$,B$,A$,B$6" " 
&CHRS(128),BS,A$,B$,C$; 

1610 CALL SCREEN(11) 

1620 CALL COLOR(11,5,1) 

1630 CALL COLOR(13,16,1) 

1640 RETURN 
1650 KH=0 
1660 FOR Y=0 TO 7 
1670 FOR X=0 TO 7 
1680 KH=1-KH 

1690 CALL HCHAR(3*Y+2,3*X+4,120+ 
8*KH) 

1700 CALL KEY(0,K,S) 

1710 IF S=0 THEN 1680 

1720 XY=X+Y*9 

1730 IF K<>87 THEN 1770 

1740 WC=WC+1 

1750 BO(XY)=2 

1760 GOTO 1850 

1770 IF K<>66 THEN 1810 

1780 BC=BC+1 

1790 BO(XY)=1 

1800 GOTO 1850 

1810 IF K<>32 THEN 1680 

1820 CALL HCHAR(3*Y+2,3*X+4,32) 

1830 BO(XY)=0 
1840 GOTO 1900 

1850 CALL HCHAR(3*Y+2,3*X+4,120+ 
8*(BO(XY)-1)) 

1860 FOR E=1 TO 8 

1870 IF XY+OF(E)<=-l THEN 1890 

1880 PO(XY+OF(E))=1 

1890 NEXT E 

1900 NEXT X 

1910 NEXT Y 

1920 A$="OK?" 

1930 R=22 
1940 C=27 
1950 GOSUB 30 
1960 CALL KEY(0,K,S) 

1970 IF S=0 THEN 1960 

1980 IF (K<>78)*(K<>83)THEN 1960 

1990 IF K<>83 THEN 2020 
2000 CALL HCHAR(22,27,32,4) 

2010 RETURN 
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2020 WC=0 

2030 BC=0 

2040 GOSUB 1540 

2050 GOTO 1650 

2060 CHIPS=0 

2070 FOR 1=1 TO 8 

2080 L=1 

2090 V=0 

2100 XX=0 

2110 V=V+OF(X) 

2120 IF (XY+V>70)+(XY+V<0)THEN 2 
200 

2130 IF BO(XY+V)=5 THBN 2200 
2140 IF BO(XY+V)<>3-TU THEN 2180 

2150 XX = 1 
2160 L=L+1 
2170 GOTO 2110 

2180 IF (XXOl ) + (BO(XY+V) <>TO)TH 
EN 2200 

2190 GOSUB 2220 
2200 NEXT I 
2210 RETURN 
2220 W=1 
2230 V=0 
2240 V=V+OF(I) 

2250 TA(XY+V)-TU 
2260 W=W+1 

2270 IF W<L THEN 2240 

2280 CHIPS=CHIPS+W-1 

2290 RETURN 

2300 FOR 1=0 TO 71 

2310 IF TA(I)= 0 THEN 2350 

2320 L=INT(1/9) 

2330 CALL HCHAR(L* 3 + 2,(I-9*L)* 3+ 
4,1 2 0 +(TU-1)*8) 

2340 BO(IJ =TU 
2350 NEXT I 

2360 RETURN 
2370 REM WINNER 
2380 IF BC< =WC THEN 2430 
2390 A$="BIANCO" 

2400 HI = BC 

2410 LO=WC 

2420 GOTO 2490 

2430 IF BC=WC THEN 2480 

2440 A$="NERO " 

2450 HI=WC 
2460 LO=BC 
2470 GOTO 2490 
24 80 A$ = "PATTA!! '* 

2490 R= 24 
2500 C=3 

2510 IF SEG$(AS,1,1)="T" THEN 25 
40 

2520 CALL VCHAR(3,27,32,96) 

2530 A$=A$i." PERDE "6STRS(HI)&" 

A "&STR$(LO)&" !" 

2540 GOSUB 30 
2550 BC=0 
2560 WC=0 
2570 DE=0 


2580 TU=1 

2590 FOR 1=0 TO 71 

2600 PO(I)=0 

2610 BO(I)= 0 

2620 TA(I)=0 

2630 NEXT I 

2640 FOR 1=1 TO 750 

2650 NEXT I 

2660 A$=" RITENTI (S/N)? " 

2670 GOSUB 30 
2680 CALL KEY(0,K,S) 

2690 IF S=0 THEN 2680 

2700 IF (K<>78)*(K<>83)THEN 2680 

2710 IF K=83 THEN 100 
2720 STOP 
2730 HY=-32000 
2740 HI=-32000 
2750 XY=0 

2760 IF (BO(XY)>0)+(PO(XY)=0)THE 
N 2960 

2770 GOSUB 2060 

2780 IF CHIPS=0 THEN 2960 

2790 QW=(TT/8)+CHIPS+PT(XY)*(65- 

(TT/8)) 

2800 IF (LE<>2) + (CHIPSOAl ) THEN 
2820 

2810 QW=10000 

2820 IF (LEO2) + (REOO) THEN 2850 

2830 GOSUB 3100 

2840 GOTO 2960 

2850 IF (QW< =HI)THEN 2890 

2860 HI=QW 

2870 Hi=XY 

2880 GOTO 2960 

2890 IF HI=0 THEN 2960 

2900 IF (QW/HI<.86) + (QW/HI> 1.14) 

THEN 2960 

2910 RANDOMIZE 

2920 ZZ=INT(RND*2)+1 

2930 IF ZZOl THEN 2960 

2940 HI=QW 

2950 Hi=XY 

2960 XY=XY+1 

2970 IF XY<71 THEN 2760 

2980 IF (LE<>2) + (REO) ) THEN 3000 

2990 RETURN 

3000 IF ( (HI<>-32000) + (LEOl ) ) * ( 
(HY<>-32000) + (LE<>2))THEN 3030 
3010 FL=0 
3020 CHIPS=0 
3030 XY=Hl 

3040 IF LEO2 THEN 3060 
3050 XY=H2 
3060 GOSUB 1270 
3070 Y=INT(XY/9) 

3080 X=XY-Y*9 
3090 RETURN 
3100 Al=BC+1 
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3700 RETURN 
3710 FOR 1=54 TO 58 
3720 PT(I)= 60-X 
3730 NEXT X 

3740 FOR 1=64 TO 28 STEP -9 
3750 PT(I)=INT(1/9)-1 


3110 FOR E=0 TO 70 
3120 A(E)=80(E) 

3130 IF TA(E)<1 THEN 3160 
3140 BO(E)=TA(E) 

3150 Al =Al +1 
3160 NEXT E 
3170 BO(XY)=1 

3180 FOR Q=1 TO 8 

3190 IF XY+OF(Q)<0 THEN 3210 

3200 PO(XY+OF(Q))=PO(XY+OF(Q))+1 

3210 NEXT Q 
3220 NW=QW 

3230 RE=1 , 

3240 Y1=XY 
3250 TU=2 
3260 GOSUB 2740 
3270 RE=0 
3280 QY=NW-HI 
3290 TU=1 

3300 IF QY<=HY THEN 3340 

3310 HY=QY 

3320 H2 = Y1 

3330 GOTO 3410 

3340 IF HY=0 THEN 3410 

3350 IF (QY/HY<.86)+(QW/HY>1.14) 

THEN 3410 

3360 RANDOMIZE 

3370 ZZ=INT(RND* 2)+1 

3380 IF ZZOl THEN 3410 

3390 HY=QY 

3400 H2=Yl 

3410 XY=Y1 

3420 FOR E=0 TO 70 

3430 BO(E)=A(E) 

3440 NEXT E 
3450 GOSUB 1270 
3460 FOR Q=1 TO 8 
3470 IF Y1+OF(Q)<0 THEN 3520 
3480 IF PO ( Y1 +OF (Q) ) 02 THEN 351 
0 

3490 PO(Y1+OF(Q))=1 
3500 GOTO 3520 
3510 PO(Yl+0F(Q))=0 
3520 NEXT Q 
3530 RETURN 

3540 IF XY=7 THEN 3640 
3550 IF XY=63 THEN 3710 
3560 IF XY=70 THEN 3780 
3570 FOR 1=9 TO 13 
3580 PT(I)=15-I 
3590 NEXT I 

3600 FOR 1=1 TO 37 STEP 9 
3610 PT(I)=6-INT(1/9) 

3620 NEXT I 
3630 RETURN 

3640 FOR 1=6 TO 42 STEP 9 
3650 PT(I)*6-INT(I/9) 

3660 NEXT I 

3670 FOR 1=16 TO 12 STEP -1 
3680 PT(I)=1-10 
3690 NEXT I 


3760 NEXT I 
3770 RETURN 

3780 FOR 1=61 TO 57 STEP -1 
3790 PT(I)=1-55 
3800 NEXT I 

3810 FOR 1=69 TO 33 STEP -9 

3820 PT(I)=INT(I/9)-1 

3830 NEXT I 

3840 RETURN 

3850 FOR 1*1 TO 8 

3860 READ OF(I) 

3870 NEXT I 

3880 FOR X=0 TO 71 

3890 READ PT(X) 

3900 NEXT X 

3910 FOR 1=8 TO 71 STEP 9 

3920 BO(I)= 5 

3930 NEXT I 

3940 FOR 1=0 TO 7 

3950 READ A$ 

3960 CALE CHAR(1+112,A$) 

3970 NEXT I 

3980 CALL CHAR(120,"003C7E7E7E7E 
3C00") 

3990 CALL CHAR(128,"003C7E7E7E7E 
3C00") 

4000 RETURN 

4010 DATA -10,-9,-8,-1,1,8,9,10 

4020 DATA 1 6 , - 6,6,2,2,6 , - 6,1 6,0, 
- 6 , -12,-2,-2,-2,-2,-12,-6,0 
4030 DATA 6,-2,6,2,2,6,-2,6,0,2, 
-2,2,1,1 ,2,-2,2,0 
4040 DATA 2 , - 2,2,1 ,1,2,-2,2,0,6, 
- 2 , 6 , 2 , 2 , 6 ,- 2 , 6,0 
4050 DATA - 6,- 12,-2, -2,-2 ,-2 ,-12 
,-6,0,16,-6,6,2,2,6,-6,16,0 
4060 DATA FFFFC0C0C0C0C0C0,FFFF0 
00000000000,FFFF030303030303,C0C. 
OCOCOCOCOCOCO 

4070 DATA 0303030303030303,C0C0C 
ocococoffff,ooooooooooooffff,03o 
303030303FFFF 

4080 DATA 1 ,1 ,1 ,1 ,1 ,0,0,1 ,1 ,0,0, 

M,1,1,1 

4090 CALL CLEAR 

4100 CALL SCREEN(13) 

4110 PRINT "PREMI(B) PER PEZZO B 
IANCO": : : : 

4120 PRINT "PREMI(N) PER PEZZO N 
ERO": : : : 

4130 PRINT "PREMI <SPAZIO> PER N 
ESSUNO"::::::: 

4140 FOR T=1 TO 750 
4150 NEXT T 
4160 RETURN 


23 





Inseguimento 



Comandate un omino e dovete evitare un fan¬ 
tasma che vi insegue. Nello schermo vedrete 
alcune ciliege che dovrete mangiare, e una vol¬ 
ta mangiate tutte, ritornare al vostro punto di 
partenza (la casa) e quindi comincierà il se¬ 
guente quadro. Nello schermo si vedranno 
100 rem ****»**»***»**»*** 

110 REM ‘LORENZO PUCCETTI* 

120 REM ***************“* 

130 REM * INSEGUIMENTO * 

1 -IO REM **»**»***»•*»****» 

150 CALL SCREEN(12) 

160 CALL CLEAR 
170 DEF P$ = ""&STR$(P) 

180 DEF Q$ = ""i.STR$ (Q) 

190 Q=1 

200 FOR CC=3 TO 8 
210 CALL COLOR(CC,12,6) 

220 NEXT CC 

230 PRINT "INSEGUIMEN 
T 0"::::::" DI LORENZO PUCCETTI" 
LIVELLO (1/7) 

240 CALL SOUND(100,440,2) 

250 CALL KEY(0,A,B) 

260 A=A-48 

270 IF (A<1)+(A>7)THEN 250 
280 CALL HCHAR(20,20,A+48) 


290 

IF A<>7 

THEN 

320 

300 

NP=3 



310 

NC=20 



320 

IF A<>6 

THEN 

350 

330 

NP=4 



340 

NC = 1 8 



350 

IF A<>5 

THEN 

380 

360 

NP«6 



370 

NC= 1 6 



380 

IF A<>4 

THEN 

410 

390 

NP=7 



400 

NC = 1 4 



410 

IF A<>3 

THEN 

440 

420 

NP = 8 



430 

NC=1 2 



440 

IF A<>2 

THEN 

4 70 

450 

NP=9 



460 

NC=1 0 



470 

IF AOl 

THEN 

500 

480 

NP=1 0 



490 

NC=7 



500 

CALL VCHAR(1, 

,1,32,768) 


510 CALL CHAR(4 2,"FFFFFFFFFFFFFF 
FF") 

520 CALL CHAR(152,"30082A777F3E1 
400”) 


inoltre delle porte (passaggi segreti) che potran¬ 
no servirsi in caso di pericolo: andandoci so¬ 
pra vi gettano lontano. Attenzione! Se tomi al 
la casa senza aver mangiato le ciliegine vi' rii 
ucciso. Ogni ciliegina mangiata rende IO punti. 


530 CALL COLOR(2,6,1) 

540 CALL COLOR(16,9,1) 

550 CALL CHAR(128,"18183C5A993C2 
466") 

560 CALL CHAR(129,"0103070F1 F3F7 
FFF" ) 

570 CALL CHAR(130,"80C0E0F0F8FCF 
UFF") 

580 CALL COLORII 3,16,1) 

590 CALL CHAR(136,"FF818)8181818 
181") 

600 CALL COLORII 4,3,1) 

610 CALL CHAR(144,"7F47477F7F4F4 
F4F" ) 

620 CALL CHAR(145,"FEE2E2FEFEFEF 
EFE") 

630 CALL CHAR(146,"3C7EDBFFBDC3F 
FAA" ) 

640 CALL COLOR(15,14,1) 

650 RANDOMIZE 

660 CALL HCHAR(1,3,42,28) 

670 CALL HCHAR(24,3,42,28) 

680 CALL VCHAR(1,3,42,24) 

690 CALL VCHAR(1,30,42,24) 

700 QQS="QUADRO*NUMERO*1" 

710 PP$="PUNTI=0" 

720 SS$="INSEGUIMENTO" 

730 FOR FF-1 TO LKN(SSS) 

740 CALL HCHAR(1,FF+3,ASC(SEG$(S 
S$,FF,1)) ) 

750 NEXT FF 

760 FOR FF=1 TO LEN(PPS) 

770 CALL HCHAR(1,FF+19,ASC(SEG$( 
PP$,FF,1)) ) 

780 NEXT FF 

790 FOR FF=1 TO LEN(QQS) 

800 CALL HCHAR(24,FF+3,ASC(SEG$( 
QQS,FF,1))) 

810 NEXT FF 

820 CALL HCHAR(2,4,129) 

830 CALL HCHAR(2,5,130) 

840 CALL HCHAR(3,4,144) 

850 CALL HCHAR(3,5,145) 

860 FOR FF=1 TO NP 

870 CALL HCHAR(INT(RND*10+7),INT 

(RND* 2 5+4) ,136) 

880 NEXT FF 
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890 FOR FF= 1 TO NC 
900 AB=INT (RND*1 8 + 5) • 

910 BC=INT(RND*25+4) 

920 CALL GCHAR(AB, BC, YX) 

930 IF YX<>32 THEN 900 
940 CALL HCHAR(AB,BC,152) 

950 NEXT FF 
960 P=0 
970 R=4 
980 C-4 

990 RI=4 » 

1000 CI»4 
1010 MR-23 
1020 MC=29 
1030 MRI*23 
1040 MCI«29 

1050 CALL HCHAR(R,C,128) 

1060 CALL HCHAR(MR,MC,146) 

1070 GOSUB 1130 

1080 CALL SOUND(-10,440,2) 

1090 GOSUB 1450 

1100 IF INT(RND*2 + 1)<>1 THEN 107 
0 

1110 GOSUB 1130 

1120 GOTO 1070 

1130 CALL JOYST(l,X,Y) 

1140 IF (X»0)*(Y=-4)THBN 1150 EL 
SE 1180 
1150 R=R+1 

1160 IF R<24 THEN 1300 
1170 R=23 

1180 IF (X=0)*(Y=4)THEN 1190 ELS 
E 1220 
1190 R=R-1 

1200 IF R>1 THEN 1300 
1210 R=2 

1220 IF (X-4)THEN 1230 ELSE 1260 
1230 C=C+> 

1 240 IF C<30 THEN 1300 
1250 C=29 

1260 IF (X=-4)THEN 1270 ELSE 130 
0 

1270 C=C-1 

1280 IF 03 THEN 1300 
1290 C=4 

1300 CALL GCHAR(R,C,CH) 

1310 CALL HCHAR(RI,C1,32) 

1320 CALL HCHAR(R,C,128) 

1 330 IF CH = 146 THEN 1600 
1340 IF CH=136 THEN 1740 
1 350 IF CH0152 THEN 1410 
1360 P=P+10 

1370 CALL SOUND(-100,880,2,1900, 
2 ) 

1380 FOR Y=1 TO LEN(PS) 

1390 CALL HCHAR(1,Y+25,ASC(SEG$( 
PS,Y,1))) 

1400 NEXT Y 

1410 IF (CH=129)+(CH=130)+(CH=14 
4)8(CH=145)THEN 1830 
1420 RI=R 
1430 CI=C 


1440 RETURN 

1450 IF MR>=R THEN 1470 

1460 MR=MR+1 

1470 IF MR< = R THEN 1490 

1480 MR-MR-1 

1 4 90 IF MC> =C THEN 1510 

1500 MC=MC+1 

1510 IF MC<=C THEN 1530 

1520 MC=MC-1 

1530 CALL HCHAR(MRI,MCI,LP) 

1540 CALL GCHAR(MR,MC,LP) 

1550 CALL HCHAR(MR,MC,146) 

1560 IF LP=128 THEN 1600 
1570 MRI=MR 
1580 MCI=MC 
1590 RETURN 

1600 CALL SOUND(-100,-5,10) 

1610 FOR TM=1 TO 150 
1620 NEXT TM 

1630 PRINT ::::::::::::::::::::: 

* « 

1640 FOR YU=1 TO 21 
1650 PRINT "* 

*'• 

1660 NEXT YU 

1670 PRINT "******************** 


1680 EE$="G A M E OVER" 

1690 FOR IT=1 TO LEN(EE$) 

1700 CALL HCHAR(12,IT+7,ASC(SEG$ 
(EES ,IT,1)) ) 

1710 NEXT IT 

1720 CALL KEY(0,DD,DDD) 

1730 IF DDD=0 THEN 1720 ELSE 150 

1740 CALL HCHAR(R,C,136) 

1750 IF INT(RND*2+1)=1 THEN 1810 

1760 R=R+5 

1770 CALL HCHAR(R,C,128) 

1780 RI=R 

1790 CI-C 

1800 RETURN 

1810 R=R-5 

I820 GOTO 1770 

1830 IF PONC‘10 THEN 1600 

1840 CALL HCHAR(2,4,129) 

1850 CALL HCHAR(2,5,130) 

1860 CALL HCHAR(3,4,144) 

1870 CALL HCHAR(3,5,145) 

1880 0«Q+1 

1890 FOR RQ=1 TO LEN(QS) 

1900 CALL HCHAR(24,RQ+17,ASC(SEG 
S (QS ,RQ,1))) 

1910 NEXT RQ 

1920 CALL HCHAR(MRI,MCI,LP) 

1930 CH=32 
1940 LP=32 

1950 GOTO 860::RICOMINCIA 
1960 STOP ::FINE-PROGRAMMA 
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Harry e le formiche 


MSX 


In questo gioco impersonate il simpatico Har¬ 
ry, un giovanotto dalla buffa chioma e sempre 
molto affamato, protagonista delle più strane 
avventure. Questa volta il famelico Harry è al¬ 
le prese con delle formiche di un altro piane¬ 
ta, che fanno il possibile per impedirgli di im¬ 
possessarsi di un cestino pieno di buone cose 
da mangiare. Usando i tasti cursore dovete cor¬ 
rere lungo i corridoi per dirigervi fino all'ultimo 
piano, prendere il cestino protetto dalla formi¬ 
ca regina, e riportarlo in basso evitando il con¬ 


1 REM HARRY E LE FORMICHE 
5 REM INIZIALIZZAZIOE 
7 CLEAP7O0; COLOR 1,14,14 SCREEN2,2 
IO GOSUB600OO 

15 FORI*11032 REAPQ A$-A$*CHR$<0> NEXT S 
PRITE$<0. = »$:«$ = "" 

20 F0RI=1T032PEABQ : A$ = A$KHR$ > Q > NEXT F 
0RI-ITO5 SPRITE$<I)=H$ NEXT A$>” 

25 FOR1“1TÙ32 REABG A$*A$«CHR$<0> NEXT S 
PRITE$ < 6)*A$ 

30 PEFUSR C 68O00 1 PEFUSR1 = 68118 ' P0I.E5999 
6!,15 

35 PUTSPRITEO,<120,173>,1 PUT5PRITEI,<25 
5,46>,12 PUTSPRITE2.<255.721.12 PUTSPRIT 
E3,<255,96>,12 PUTSPRITE4.<255.1241.12P 
UTSPRITE5,<255.150).12 PUTSPRITE6,<255,1 
0).l 

4 0 FORI *1T06 . IFRND<1X.5THENBR< I XIELSEB 
R<I ) = 3 

45 NEXT:CC=5 

50 B$*"»U2.1" A$.“" ;F0RI»1T032 : A$*A$*B$ 
NEXT 

52 PRAM"bm0,41xa$,xa$,b«0.44xa$,«»$ . ’ 

54 DRAW-bt.0,67x4$,xa$,b»0,70<a$,xa$,’ 

56 BRAN"b»0.93xa$;xa$," 

58 PRAirb»0.96xa$;xa$.• 

60 BRAM*b«0,119x»$,xa$; • 

62 BRAW"bm0,122<»$,xa$, ■ 

64 BRAW"b»0,145xa$,xa$;’ 

66 DRAW’b«0,148x»$,xa$;’ 

68 DRAWb»0.171X4$, xa$;" 

70 G0SUB78 

75 BRAW’bi.115,192rlOu2il0” 

77 6OTO90 

78 PRAN"b»115,14rl0dl0I10ul0fl0bll0*10bl 
8u4r6d4" RETURN 

79 DRAM“b«115.178rl0dl0110x10410bll0*10b 
18u4r6d4" RETURN 

90 SPRITEONONSPRITEGOSUB800 

99 REM CONTROLLO 

100 P0KE59999 1 .10 B*USR<B> 60SUB380 


tatto con i velocissimi insetti. 

Cercate di effettuare il maggior numero di viag¬ 
gi, ma vi renderete immediatamente conto del¬ 
la difficoltà della difficoltà di sfamare il povero 
Harry. 

La linea 210 determina la 'intelligenza' delle 
formiche quindi modificandola potrete rende¬ 
re il gioco più difficile. 

Se invece non siete soddisfatti della velocità del¬ 
le formiche potete modificarla alternando i va¬ 
lori della linea 250. 


110 GOSUB200 
190 GOTO100 

199 REM MRE2I0NE BELLE FORMICHE 

200 6OSUB250 

205 1=INT<RNB<1)$6+1) : IFPR<I X1THENPRC 1 ) 
=3ELSEPR< I > S 1 

210 IFRMKIX. 9-NTxlOTHEN220ELSEIFUPEEK< 
6913t4»CCXVPEEK<6913>THENBR<CC>«3ELSEBR 
<CC)«1 
220 RETURN 

249 REM MOUIMENTO BELLE FORMICHE 

250 P0KE59999I,9 FORI*1T06:P0KE59998!,BR 
<I> P0FE59997 ! , I 1>«USR1< B> : NEXT 

268. RETURN 

299 REM CONTROLLO MOVIMENTO 

300 K-VPEEK<6912) ; CC* I NT < <K-20 ) ,'26 > 

305 IFK<72TH£NCC*6 

320 IFK>180THENK1*UELSE!FK<10THENK1«14E 
LSEK1-15 

325 P0KE59996 *,K1 

330 IFK>25ANBK<165THENRETURN 

335 IFVPEEX<6913) <1150RVPEEX<6913)>125TH 

ENRETURN 

340 IFK<-25THENIFLB*1THENRETURNELSEPLAY’ 
I24*160c8n68n60“:LB»1:BRAN’ol4* :S0SUB78 
GOSUB79 RETURN 

345 IFLB*1THENPLAY’*8»2001401)20" :NT*NT tl 
:0OSUB1000 :U>e :BRAM"el" 60SUB79:G0SUB78 
RETURN 
350 RETURN 

799 REM GAME OVER 

800 FORl*nO7 PLAY“l50«1380$18n64rl8n74" 
NEXT 

010 SCREEN1 PRI NT’LE FORMICHE COSMICHE 
HANNO VINTO UN'ALTRA VOLTA!" 

820 PRINT PRINTPRINT:IFNT>1THENPRINT" - 
Bravo Harrg, $•! riuscito" PRINT’» far# 
*,NT;*viaggi!!‘ELSE IF NT-1THENPRINT• - 
Povaro Harrg,hai fatto’•PRINT’un solo vi 
49910! 1 ’ELSEPRINT’ - Coraggio Harrg, rip 
rova ! ! ’ 
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650 IFINKEVI*"THEN£NDELSE856 

999 REM NG6I0RNHHENT0 PUNTE6610 

11)66 A»**b»**STRHNT»4)4*,l“ DRAU*x<», cl 

(M- RETURN m 

9999 REM DATA SPRITES 

16666 DATA18,16,5,86.47.21.37.87.14,23,3 
9.75,16.2.2.14.144.161.74.146,184.178.16 
4.234,113.232.228,288,64.64.64.112 
18818 56763,6,248,8,4,7,15,31,31,15,15,4 
,6.248.8.3,136.136,136.144.166.255.255.2 
46,246.255.255.166.144,136.136.136 
16628 DAT A6 8.34,17,17,17,63,127.255,255. 
127,63.17,17,17.34,Ì8.64,32.li.17.17,258 
.252,252.252.252,258.17.17.16,32,64 
66688 ClS REST0RE66828 
66618 FORI*o0008!T068217! REA58 P0KEI.fi 
NERI PESTONE RETURN 

68828 5ATA219,176,238,248,33,92.234.94,2 
46,6,8.8.8.6.8.6.6.8.8.8.8,211.178.219,1 
69,71,6,6,6,6,8,0.8.8 


168 30 I'hThù 8.8.230. 128.194.151,234,283, 
91 262.151.234,62,3,58,94,234,195,289,23 
4.120.230,64,194,176,234,283.83,202,178, 

234.62.2 

66046 DATA50,94,234,195.209,234,120,238, 
32.194,189 334.283.67.282.189.234,62.8.5 
8.94.234.195.209.234.120,238,16,194,208, 
234.283,75.262,208,234,62.1,56.94.234.19 
5.2U9,234,281,62,0.50,93.234,58 
66850 DmTm93.234.283,39.203,39,79,6,0,33 
.0.27.9,56.95,234,71.58,94.234,67,254,8, 
194.256.234,205.27,235.121,152,79,195,44 
.235.254 

08060 5ATMi.194,6.235.35.285,27,235,195, 
244.234.254.2.194.20.235,205.27,235,121, 

128.79.195.44.235.35.205.27.235.195.14.2 
35,125.243.211 

60878 RNTA153,124,211,153,8,8.8,8,219,15 
2.79.183.251.201.125,243.211.153,124,246 
,64.211,153,121,211,152.251.281 
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sea Harrler 


li teatro di questo avvincente gioco è l'Oceano 
Pacifico, il periodo quello dell'ultimo conflitto. 
Siete ai comandi di un aereo da guerra e la 
vostra missione consiste nell'affondare i som¬ 
mergibili nemici, lanciando i missili a vostra di¬ 
sposizione, facendo tuttavia molta attenzione 
a non colpire le potenti bombe dislocate nel fon¬ 
do marmo. Quando, osservando l'apposito in¬ 
dicatore, vi accorgete di essere a corto di car¬ 
burante, dovete dirigervi verso la vostra nave 
d'appoggio, atterrare per fare il pieno e ripar¬ 


1 REM 5EN MNRRIEA 

5 óOSUbt 0006 

7 REM IN1ZIhL1ZZA21ONE 

15 COLOR 15,4.7 SCREEN1.2 KEVOFF 

26 FORl*lTo32 RENDO A»*A»*CMR»<fi) NERI S 

PR11 Et < 8 > *Al PUTSPRITE0. <128,3$) Nt*” 

25 FOR 1*11032 RENDO A»*N»*CMRI\ù> NEXT S 
PRITE» vi)*At A»*"' 

38 F0RI*1T08 RENDO A»*A»*CHR»<0> NEXT SP 
RlTEi»2)«A« SPRITE»<3)*A« A*»** 

35. FOR I >11032 RENDO At*A»*CHR»<6> NEXT S 
PRITE1'4'*».I A»*" 

46 F0RI*1T032 RENDO N»*AI*CHR»'0> NEXT S 
PRITEt\5 > *Hl m«»“" 

45 FORI*1108 RENDO A«*A«*CHR«<0 > NEXT SP 
RIT£t<6)*A» 


tire per continuare la missione. 

Il cursore 'alto' serve per prendere quota, il cur¬ 
sore 'basso' per scendere, il cursore 'destro' 
per aumentare la velocità, il cursore 'sinistro' 
per iniziare la delicata manovra di atterraggio. 
La barra-spazio serve per lanciare i missili. 
Se trovate difficoltoso atterrare sulla nave ap¬ 
poggio. studiate la linea 522 che controlla que¬ 
sta manovra. Potete inoltre facilmente aggiun¬ 
gere altre bombe sul fondo marino per rende¬ 
re più impegnativa la missione. 


50 FOR1*1688101685 RENDO VPOKEI.0 NEXT F 
OR 1*115210117 5 RENDO OPOKEl.0 NEXT DEFUS 
Rfi'òòoee 1 DEFUSRl*60118* P0XE59996 1 .15 

55 FOR1*11010 PAINI NEXT PR1 NT’Pr«61 un 
li<to p*r 1 r, ì ! l *r v * 

00 FORI * 1T011 D*RND(1) IF!NKEY*<>“"THEN7 
8ELSERENDAI WP0KE6153»I.NSCvAt>.RE hDN B» 
**n"*STR»> N > PLNV*1»255 115*6», “ F0RT-1T 
OlOo NEXT NEXT 

o5 FORI * 1T 0500 NEXT FOR1*6154106164 VPOK 
E I.32 NEXT RESTORE10200 60T068 
«9 REM DI5E6N0 SCHERMO 

76 CLS F0RI*6496T0o527 UP0RE1,INT<RND<1) 
13*144 r NEXT FOR1*6848T06879 VP0KE1.23 N 
EXT PUTSPRITEO.*0.16> 
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72 FoRl*6848T06879:VPÙKEl,23 NEXT ■ PUTSPR 
I TEÒ . (0,16 > , 8 

75 F0RI*1TÙ23 PRI NT.NEXT PRINT"CARE. C 
HkiMl); 

80 PUTSPR!TE4,(0,75),14 PUTSPR1 TEI,(8,14 
6 ), 1 

85 K1-1NT(RNB(1 >4 158*48) PUTSPRITE2.(K1, 
lùù ) , 1 X2=lNT(RNP(l)t50*30> : PUTSPR I TE3, < 
Ki*K 2 ,iaa>,i 

98 STRIb(0)0N OMSTRIGGOSUB900 SPRITEON 0 
MSPRI1E6O8UB500 

95 ÙNINTERVhL* 180GOSU6100O INTERVALOM TF 
*30 Fl*ió 6O3UB11O0•SB=100 
98 REM CONTROLLO 

100 P*USR(0> 1FPE£K<59997 !>*0THENIFPE£X( 
59998 *) »1THEMLI>*1 

105 K1*VPEEXv 6912) IFX1>75ANPXI<1'30THEM7 
00 

110 GOSU620B 
115 G0SUB250 
120 IFl)C*lTMENtìOSUB300 

130 IFLD*1THENP0K£59998 1 , 13ELSEP0XE59996 
',15 

190 GÙTO1O0 

199 REM MOVIMENTO AEREO 

200 IF S T*1AHPVPE£X ( 6912 > >65 THENRE TURI! 

205 IFRF = 1nNBVPEEL(6912Xo5TMENRF*0 ST = 0 
:LP=Ù SPRITEON 

215 IFLP=1hNPRF=0THENX1*2 X2*1:60T0248 
220 X1 « 3 K2*4 

240 PÙKE59997!,0 PÙXE59998!,XI P0XE59999 
' . K2 B*USR1(B> : RETURN 

249 REM MOVIMENTO SOTTOMARINO 

250 K1=RNB(1>*IFX1<.5THENX2*3ELSEIFX1<,7 
5THENK2“0ELSEX2*2 

25.5 IFVPEEXi6916XU0THENX2 = 2ELSEIFVPEEX 
•69ló<>ió8THENK2=0 

260 P0KE59997!,1 PÙKE59998!.X2;P0KE59999 
' .2 P*USRll»> 

245 RETURN 

299 REM MOVIMENTO BOMBE 

300 PÙKE59997!,6 P0XE59998I.2 P0KE59999! 
,3.6=USRliP> 

305 IFVPEEX<Ó936>>175THENDC*0 PUTSPR1TE6 
,<100,200) 

310 RETURN 

499 REM COLLISIONE 

508 SPRITEOFF 1FDC*1ANMVPEEX<Ó912X650R 

VPE£K(6912 > >1980RVPEEX(6913 > >16 > THENIF VP 

EEX<6936X98THENSB*6 6OTO550ELSE IFVPEEXC 

6936X11OTHEN650ELSE600 

510 1FLP‘0mNBST*0THEHSB=8 GOTO550 

515 IFLB*1TMENST*1LP"0ELSEIFST»1THENRET 

URN 

520 LB=0RF«l:TF»TF-16*FL IFTL<0THEN700£ 

LSEIFTF>0lHENFL»16 6OSUB110O 

522 IFVPEEX<6913X>5ANDVPEEXl6913X>6THE 

NSB = 0 6OTÙ550 

525 SPRITEON RETURN 

549 REM ESPLOSIONE NAVE 

550 VPOXE6914.S814.20 GOSU81208 F0RK1MT 
0200.NEXT:VPOXE6930,20 60SUB128Ó:F0RK1-1 
TOlOOO:NEXT 00T02O80 

599 REM ESPLOSIONE SOTTOMARINO 

600 NSgNS*1 VP0XE6919,15.VPÙXE6918,20 00 
SUB1200: FORI 4*1101080 NEXT:PUTSPRITEo.<1 
00,200):PUTSPRITE 1,(0,140),1 VP0KE691S.4 


t,40 SPRITEON RETURN 

<-49 REM ESPLOSIONE BOMBA 

650 VP0KE6938,20 VPÙXE6939,15 :GOSUB128 0; 

FORM*1101000 . NEXT BM*1 

6o0 G0102ÓOO 

c99 REM ESPLOSIONE AEREO 
7O0 VPÙXE6912,70;VP0XE6914,20 :GOSUB 1200. 
FORM = 1T01000 NEXT 
710 6OTO2O00 

899 REM LANCIO BELLA BOMBA 

900 1FPC*1IHENKETURN 

905 1>C*1 ll*VPEEX(6912> : I 2*VPEEK ( 6913 ) I 
F 12<ÓTHENI'C*0 RETURNELSEPUTSPR*TE6,(12-8 
. m.i 
910 RETURN 

999 REM CARBURANTE 

1000 FL*FL-1 VPÙKE6388*FL.32 
101O IFFL<0TMEN700ELSERETURN 

1180 FORI3*o88SrO6903VPOXEI3,136 NEXT 
1120 RETURN 

1199 REM SUONO ESPLOSIONE 
1280 PLAY*13»20Os8n27* 

1210 RETURN 

1999 REH 6ANE OVER 

2000 SCREEN1 PRINT’ GAME OVER* 

201U PRIMI PRIMI 

2015 PKINT*Sotto»nrini distrutti *,NS:PR 
INI PRINT 

2020 IFSB=0THEHPRIHT"hTTERRAGGIO NON RIU 
SCITO!‘f *60702108 

2U25 IFSB*óTH£HPRINT"HAl COLPITO LA TUA 
NAVE!!'* GOTO210O 

2030 1FBM*1TH£NPRINT“HA! COLPITO UNA BOM 
Bh ATOMICA*:G0T02188 

2035 IF Tf C0ORF LC0THENPRI NT * HA I TERMINATO 
IL CARBURmNTE! ! !" 60102180 
2100 !FINXEYS*-*THENENPELSE2180 

9999 REM FATA SPRITES 

10000 PmTmO.0.0,0,0,192,224,241,255,127, 
127,31,63.124,0,0,0,0,0,0.0,0,112,236,24 
2,255,238,216.0,0,0,0 

1O010 PAT00.0.0.0,0,2,7,6,7,127,255,255, 
127.0,0,0,8.8,0,8,0,0,128,128,192,254,25 
5,255,254.0,0.0 


18020 l>« 180,90,60,126,126, 60.90,0 

10030 PAThO.0.0,0,192,192,240,248,240,25 

5.255,255.255,255,255.255.0,0,0,0,0,0,0. 

0,0,255.254.252,248,240,224,192 

10040 PATA0,4,66,136,2,64,18,42,10,165,4 

3,144.40.1.64,18,123,16.4,32,1,72,33.146 

,284,22,200,92.64,9,0.32 

18058 PATA48,56,16,10.56,56,56,16 

10899 REH PATA CARATTERI 

18100 PATA255,171,213,171,213,171,213,25 

5 

18182 PATA0,0,4,154,97,0.0.0 

18104 PATA0,0,8,13,210,32.0,0 

18106 PATM0,0,0,181,66.8.0,0 

10280 PATAS.30.E,32,A,35,* *,34,H,35,A,3 

4.R,33,R.32,1,33,E,34,R,35 

68808 CLS RESTARE68820 

00018 FOR1 *60000 !TO60217! REAPO: PONE 1,0■ 
NEXT RESTARE RETURN 

00020 PATA219.170,230,240,33.92,234,94.2 
46,8,8.0,0.0,0.0.0,0,0,0,0,211,170,219,1 
69.71,0,0.0,0,0,0,0,0 
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60O30 MIrtO, 0,0,230.128,194.151.234,203. 
91,202,151,234,62,3,50,94,234.195,209.23 
4,120,230,64,194.170,234,203,83,202.170, 
234,62,2 

60040 MTrt50.94.234,195,209.234,120.230. 

32,194.189,234.203,67,202,109.234,62,0,3 

0,94,234,195,209.234,120,230.16,194.200, 

234,203,75,202,208,234,62.1.50.94,234.19 

5,209,234,201,62.0.50,93,234,58 

60050 1>H IA93,234,203,39,203,39,79.6,0,33 


,0.27,9,50.95.234.71,58,94,234.87,254,0. 

194.250,234.205,27,235.121.152,79,195.44 

.235.254 

6ÙÓ60 PaTmI,194.6,235,35,285,27,235,195, 
244,234,254,2,194,20,235,205.27,235,121, 
128,79,195,44,235,35,205,27,235,195,14,2 
35.125,243,211 

d007u PATnIS3, 124,211,153,0,8.0,0,219.15 
2.79,1*3,251.201.125.243.211,153,124,246 
.64.211,153,121.211,152,251,201 
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Caccia al tesoro 



Questo è un appassionante gioco per due per¬ 
sone. Sì tratta di correre lungo un percorso rac¬ 
cogliendo il maggior numero di pietre preziose ■ 
e cercando di raggiungere il traguardo posto 
nel centro, e rappresentato da un grosso dia¬ 
mante con il maggior numero di punti. 

Questi sono i valori delle diverse pietre prezio¬ 
se: 1000 punti per il diamante. 75 0 per i rubi¬ 
ni, 500 per gli smeraldi, 250 per le opali. Lun¬ 
go il percorso troverete inoltre altre pietre di 
minor valore e diversi serpenti che vi faranno 
perdere dei punti. Attenzione inoltre alle pie- 

1 REM CACCIA AL TESORO 

2 Rt11 III121ALIZZAZIONE 

5 COLOR 14,4,7 SCREEN1,2 KEYpFF 
7 VP0RE8218,180 VP0RE8211,3o WPÙKE8212.1 

32 VP0KE0213,2o 

10 FORI‘lT08 REAPO n$»A**CHR*<0> NEXT SP 
RITEI'.O.'-m* SPRIT£»<iMA* 

15 FOR 1-1072IO 1079 RErtPÙ UPOREl ,0-IIExr F 
0RI=1152I01344STEP64 F0RJ=6T07 RENDO UPO 
I.EI • J .0 NEXT NEXT FOR1>1112TOU43 RErtPÙ 
VPOKEI,0 NEXT 

20 PRIMI- CACCIA AL TESORO' PRINT :P 

RINT PR1 HI PRINT 

25 PRUIT''Pi*tr# Vilor* (Bilioni)", 

PRIMI. .— "• 

30 PRINT PRINT PRINT'opili *TAB<10JCHR*Il 
4 4/1 h&\19)"250" 

35 PRINT PRINT'*»er»ldi"TAB<10KHR*(152> 
TnB119/* 500 " 


tre false, che, se rinvenute, vi faranno perde¬ 
re dei punti faticosamente conquistati. 

Ci sono due tipi dì tattiche che si possono at¬ 
tuare in questo gioco: correre dritti verso il tra¬ 
guardo, raccogliendo però ben pochi punti, op¬ 
pure fare un giro un poco più largo per cerca¬ 
re di collezionare il maggior numero di pietre. 
A voi la scelta della tattica vincente. 
Vediamo infine le variabili usate nel program¬ 
ma: PP(I) rappresenta la posizione del gioca¬ 
tore I, S (I) è il punteggio del giocatore I. e 
P$(l) è il nome del giocatore. 


40 PRIMT:PRINT"rubiAi“TABIIO)CHR*<160)TA 
Bvl? < * 750* 

45 PRIMI PRIIII*di*N*nti"TH»<10)CHR*<139> 
C HRI•140>1A8(19>*100O*:PR1NTTA8<18>CHR*< 
141>CHRS v142 > 

47 PRIMI PRIMI*s4rp»iUe"TAB<10>CHR*<168> 
IhS< 18 )"- 10O' 

50 PRIMI PAINI :INPUT“6loc»tor» 1 " ;P* <1>- 
PRIMI INPUT'óiocitor* 2',P K2> 

55 ÌFLEIKPKJ) )>90RLEM(PK 1 >/>9THENPRINT 
"Ilòta* t r opro lungo* : 60TÙ50ELSEPRIHT : PRIN 
l'ut “Pilli' * "P*<2> 

57 FORI‘11020 PRIMI NEXT PRINT* Preu 

i un listò" 

oO IFINI EY* = "*THEND=-RMD(1/ 0OTO6O 
93 REN PISE6MÙ SCHERNO 

1ÙU CLS VP0RE6511,139 VP0KE6512,140 WPOK 
E6543.141 VPÙREo544,142 
105 FOR1"6241T06Z44;VPOKEI,134 NEXT FORI 
=62e7Tu627ù VPOI.E 1,134 NEXI . VP0KE6273,13 
4 FORI=6276106287 VPOKEI,134 NEXT:FORI*6 
289T06299;VPOKEI,134 :NEXT.OPOKE6302,134 


29 














110 VPOFEó 305.134 VPÙKEó So8,130 vPOKEóil 

7.134 VFOKEc.319.134:VP0KEb321.134 VPÙKEó 

313.134 VPCKEÓ331.134 VP0KEÓ334.134 

115 VPOKEÓ337,134 VPùKEo340,134 VPÙKE634 

1.134 VPOIEÓ342.134 VP0KEÓ347.134 VPOKEÓ 

340.134 VP0KEt,349,134 VP0KE6351.134 VPÙK 
Eó 352,134 VP0KEÓ353,134 VP0KEÓ355.134 VP 
0KEÓ3Ó1.134 VP0KEo362,134 VP0KEÓ3Ó3,134 
VPÙKEóSoó.134 

U'O VPÙKEÓ389,134 VP0KEÒ374,134 VP0KEÓ37 

3.134 VPÙKEó 364,134 :VP0KEÓ387,134 VPOKEÓ 

383.134 VPOKEÓ389,134 VPÙKEÓ393,134 VPOK 

EÓ398,134 

185 VPÙKEo'IOi, 134 FÙRl=u404T0ó41l VPOKE I 
.134 HE:: 1 VPÙKEÓ414.134 VP0KEÓ415.134 VP 
0KEc,41ó, 134 VP0KEÓ421.134 VPÙKEÓ425.134 
VP0l.Eo430.134 


1J0 FuRI=o433TOu43o VP0FEI.134 UEXl VPOK 
EÓ4 40,134 VPÙKEÓ44Ó,134 FOR 1= o4 5 3TÙ6459 
VPOKE1,134 NEXE VP0KEÓ4Ó2.134 
135 VP0KEÓ4Ó6.134 FÙRI=ó4ó8T0o474 VP0KE1 
,134 NEXT FOR I-o478T0Ó403 . VPOKE 1 ,134 /IEX 
T VP0KEÓ487.134 FÙR1=Ó491TÙÓ494 VPOKEI,1 
34 NEXT 

140 VP0(£8498,134 VP0KEÓ501,134.VP0KE658 
b,134 VP0KEÓ50T.134 VPOKEÓ508,134 VPOKEÓ 

510.134 VPOKE8?13.134 VPOKEÓ515,134 FORI 
=05171UÓ523 VPOKEI,134 NEXT VPÙKEo525,13 
4 

145 VPuKEe.530,135 FÙRI=Ó532T0Ó538 VPOKEI 
,134 IIEXI VPÙKEÓ540,134 VPÙKEo542,134 VP 
01 Ey545,134 VP0KEÓ54 7,134 VP0KEÓ548,134 
VPUK Lo549,134 VP0KE6554,134 :VP0KEÓ557,13 
4 

150 VPÓKEÓ5Ó2,134 VP0KEÓ5Ó3,134 :VP0KEÓ5Ó 

4.134 VP0KEÓ5o8.134 FÙR1«6572T0ÓS77 VPÙK 
E 1,134 IIEXT : FÙR I =658110Ó587 : VPOKE 1,134 II 
EX I VF0K£o589,134 

155 VPOKEÓ594,134•F0RI=ó59óT0óó02:VPOKEI 
.134 IIEXI VPOKEóó09,134 VP0KEÓÓ15.134 : VP 
0KEÓÓ19.134 :VP0KE6Ó28.134 VP0KEÓÓ21.134 
1Ó0 VP0I.EÓO2Ó, 134 VPÙKEÓÓ28,134 VP0KEÓÓ3 
1, 134 VP0KEóo34,134 VP0KEóó35,134.VPOKEÓ 
Ó3Ó.134 VPOKEÓÓ39.134 VPÙKEÓÓ4Ò,134 VPÙK 
EÓÓ41.134 FORI=óó44T0ÓÓ51 VPOKEI.134 NEX 
T VPÙKEÓÓ53i134 

1»5 VP0KEÓÓ58,134 VPOKEóóóO,134 VPOKEóóo 

3.134 VP0KEÓÓÓ8,134:VP0KEóó71,134 VPOKEÓ 
ó7ó,134 VPOKE6Ó88,134 VP0KEÓÓ83,134 VPOK 
E 008 S,134 

170 FORI=ÓÓ89TÙÓÓ92:VPOKE1.134 NEXT VPOK 
Eóó95.134 VPQKEóo9o,134 VP0KEÓÓ97,134 VP 
0KEÓ70Ó,134 VPOKEÓ702.134 VP0KEÓ703.134 
VP0KEÓ704,134 VP0KEÓ70Ó.134 VPOKEÓ707.13 
4■VPOK Eó7o8,134 VPOKEo711,134 VPOKEÓ712, 
134 F OR 1 = Ó715TÙÓ718 : VPOKEI, 134 IIEXT 
175 VP0KEÓ721,134 VP0KEÓ724.134 VP0KEÓ72 

9.134 VP0KE8732.134 VPOKE6734,134 VPOKEÓ 

730.134 VPOKEÓ738,134 VP0KEÓ743,134 VPOK 
Eb747,134 VPOKE6750,134 

180 F0RI»Ó753T06766:VPOKE1,134. NEXT FORI 

= o7óÒT0ó782 VPOKE I ,134 IIEXT 

185 VPOKEÓ792.134 VP0KEÓ797,134 VP0KEÓ88 

1.134 VP0KEÓ86Ó,134 FORI=6829106833:VPOK 
EI .134 NEXT 


110 VPOlEu241 180 • VPOKEÓ276,lòfi.FOR1=624 

.70873,: lFVPEEKU> = 134THENk = RNKl> 1FKC. 

05THEIIVP0KE I .1Ó6ELSEIFKC. 1THEII VPOKE 1, 152 

ELSE IF K <. 15 THE II VPOKE 1,144 

192 IIEXT OP0KE6538 , ló8 VPÙK EÓ589,1Ó0 VPO 

KE6278.1Ó0:VPÙKEó297,lóò 

195 H*C1>="E' il tuo turno" : MFC 2 > = "Atteri 

Vi. " OvSUBlùOÒ CP = 1 0 = 1 PUTSPRITE 

0.(«4,1»0).1 PUTSPRITEI.<176,luO;,12 CUI 
1> = 134 CU(2) = 134 PPCl>=ó792:PP<2>=ó80ó 

199 REM EHTOR 

200 X* =INKEVI C = C*1 
210 IFC = ÓTHEIIO = l-V C = 6 
280 IFUO0THEM85O 

230 0=1 K=VPEEKCPPtCP)).IFK=32THENVP0KEP 
P« CP).CUcCP JELSEVPOKEPPCCP),32 
250 IFXl»■ "THEII20Ó 

2oO |.«M5C<XI) -27 IFK*ÙRK>4THEN26ÓELSE0H 
KùuTuidu.320,348,300 

299 REM HOSSE LECITE 

300 1FVPE£K(PPCCP>*1> *32THEN208 

305 VPOKEPPCCP).CUCCP):CUCCP>«VPEEK<PPCC 
P/U) PPiCP>=PP(CPI*l .VP0KEÓ9Ù9*4»CP,VPE 
EK\o909*4KCP)*8 
310 '0010400 

320 IFVPEEK<PPCCP>-i> = 32THEN280 

325 VPOKEPP(CP >,CUCCP >:CUCCP > = VPEEKCPPCC 

P>-1> PPiCP/=PPCCP)-l VPOKE6909444CP,VPE 

EK'ó909*4FCP)-8 

338 VOTÙ4O0 

340 IFVP£EKCPP«CP/-32)=32THEN200 

345 VPùKEPPcCP),CUtCP):CUCCP>=VP££K(PP(C 

p >-32) PPCCP>*PP<CP)-32■VP0KE6908*41CP,V 

PEEKCÓ98S*CP*4>-8 

35Ó 00T04ÓO 

3ó0 IFVPEEKCPPCCP)*32>=32THEN268 

3o5 VPùKEPP(CP),CUtCP):CUCCP)"VPEEKCPPCC 

P>*32; PPCCP>=PPCCP)*32:VP0KEÓ988*4»CP,V 

PEEK<.ó968*4tCPr»8 

399 REM CONTROLLO MOSSA 

406 MCU'CP; IFK = 134THENGO$UB750ELSEIFK» 

l44THEN6OSuBó68ELSElFK=152THENbÙSUB650EL 

S£IFK=lóÙTHENOÙSU8550ELSEIFK=ló6THEN8OSU 

6760ELSE6GSUB908 

401 K=CU(CP> 0HK60SU6758,000,656,556,708 

,900,966.908,960 

410 IFCP=1THENCP=2ELSECP=1 

420 HF<uP/=”E' il tuo turno":IFCP=1THENH 

I< 2 > = "At tondi. “ELSEN*(1) = "At t»ndi 


425 bOSUBlOOO 
490 6ÙIU20Ó 

499 REM RUBINI 

500 MI'CP)="RU8IES!•! * 750":SCCP>-S(CP) 
•75Ó 6OSUB1006 CU(CP)*134VP0KEPP(CP),13 
4 

550 Mi.CP)="RU81NI••• ♦ 750":SCCP>*S(CP) 
*750 60SUB1000 CUCCP> = 134 VPOKEPPCCP>,13 
4 

500 PLhV 1453u3O000n4516n4014n45", " 146 8» 
2O000T. jólSn3114n3ó "FOR T = 1TO100ONEXT 
590 RETURN 
599 REM OPALI 

oOO MF\CP> = "OPALII * 250 " : SCCP)=S(CP) 
*250 ÓOÌUB18O0 CUCCP3=134 VPOKEPPCCP),13 
4 

Ó38 PLmV 14sl4»30O0ft45" FORT = 1TO1800.NEX 
T 


30 







640 RETURN 
649 REM SMERALDI 

Ò56 II»'CPX'SnERRLH ! * 560" SvCPI'ST'.P.' 
♦ 500 : 60SUB1606 0U<CP)=134 UPOKEPPCCP).13 

*30 PLAV I4tl4».3000n4012n45 - FORT-1TO1O0 

o NEXT 

630 RETURN 

643 REM SERPENTE 

700 IH(CP)*'SERPENTE! - 106' $<CP>*S<CP> 
-180 6OSUB1000 CU-,CP>*134 VPOKEPPtCP), 13 
4 

730 PlMY-I64i8i.54000n45n46n47n48n49n50n5 
Iii51n50r.4 4n43n47n46n45n44n45n46n47n48r>49 
r,50n51r,50ri49n48n47n46n45n44 13n43‘ :F0RT*1 
T08880 NEXT 
740 RETURN 

749 REM ALTRI RITROVAMENTI 

750 1FRNK1X.7THENRETURN 

755 IFRNIH1X.3THEHM* <CP > *'0R6EMTO 1 ♦ 50 
« : S(CP>*S<CP>t56 6OSUB1O80 PLAV 16«l«-7 
77n3.4n50n23*, “ 12*5»2000r*4O' : FORT=1TO1O00 
NEXT RETURN 

760 IFRNK1X. 5THENH*<CP)»’ftHETIST0! * 2 
0 • S(CP>«S(CP)420 6OSUB1000 PlAY'MslOi. 
500r.35r,30-, ■ 1 2sln.l000n2O" FORT = 1701080 : N 
EXT RETURN 

765 HI<■<P>*"PIETRE FALSE-50- S<CPXS<CP> 
-50 6OSUB10OO ; PLAV 1168«28000n2 ■ F0RT = 1T 
01000 NEXT RETURN 
899 REM ÒRME OUER 


Sun v:reehi sicp>«s<cp>ti600 

'•lo PLh V 18s2i*38006Tt45n4614n4512rt4611r,37 
- . • *2* 3000818r.3Tr8 14n3?r 21 li*33 • 

940 IFS. 1)>S>2>THENPRINT*H» uinto "iPIll 

5ELSEIFS(2<>S<1>THENPR1NT-H» vinto - ;P«I 
2 «ELSEPRINT" PARTITA PARI 
930 PRINTPR1NT.PRINT PRINT‘1 punte»»! s 
ono - PRINT PR1NTPI(1),S<1>:PRINT PRINTP 
»<2>,S<2> 

980 PRINT PRINT PRINT 
990 ENI> 

999 REM AÒ610RNAMENT0 MESSA66I/PUNTEG6I0 
1080 PRINTP»<1>" " PRINT-PUNTI ‘.SiD.TA 
B> 12 .'111 > 1 ) FORI-1TO20 PRINT NEXT PRINTP» 
<2 > • • PRINT'PUNÌ I *;8<2>;TABU2>M»<2>;C 
HR»ill>, 

ÌOIU RETURN 

9999 REM RATA SPRITES 

18000 1*mTm24.60,12ó,126,60,36,66,129 

10699 REM RATA CARATTERI 

101UU I.MTA255,213,171,213.171,213,171,25 

5 

10102 [•07066,231,66,0,0.66,231,66 
10104 1*01032,112,248,116,46,31,14,4 
10166 I.NTA60,126,255,255,255,255,126,60 
10108 1.0702,7,12,76,140.134,195.126 
161 lu 1.0701,3,7,15,31,63,127,255 
10112 1*010128,192,224,240,248,252,254,25 
5 

10114 5ATA255,127,63,31,15,7,3,1 
10116 5mT0255.254.252. 248,240,224.192,12 
8 


Per ricevere gli arretrati di 



compilare il seguente tagliando: 


T Compilare ed inviare in busta chiusa a: 

\J.SOft viale Restelli, S - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 

Nome_ 

Cognome_ 

Indirizzo --- 

CAP __Città _ Prov. - 


Desidero ricevere i seguenti numeri arretrati di 



_ Anno 


dedicato a-Anno - 

a L. 2.000 cad. per un totale di L. a mezzo 

□ assegno allegato □ contanti allegati 
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IN EDICOLA 





11*4 


SuperSinc e 
Super Commodore 
sono idee 

'è. soft 


EDITRICE 































































